• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

converting Pdf file to excel format

Dear all , i wanted to convert pdf file to excel in Microsoft 365 as there is option to convert , I am able to do it for one page/ 1 table , but if pdf have 6 pages ,i have do it separately ,while converting it shows multiple pages , how can I convert all pages together to one sheet only
 

Attachments

pecoflyer

Well-Known Member
This is quite straightforward .
Get Data - From File - PDF
Check " Select multiple items" in the Navigator - Select your tables, then click Transform Data
In the Home data select "Append queries" in the Combine group and follow the wizard
 
hi,

u can collate manually or u can collate by excel vba for code you can search in google
"excel vba to consolidate multiple sheets into one sheet" in this key word...
 
Code:
Option Explicit

Sub Button1_Click()
Dim x As Workbook
Dim Ws As Worksheet
Dim lr As Long, lrS As Long
Dim s1 As Worksheet
Dim sheetsToSkip() As Variant
Dim i As Integer
Dim Exclude As String
Dim lRow As Long

  
 'Consolidate All sheets
Set s1 = Sheets("ur first sheet name")
    s1.Range("A2:T" & Rows.Count).End(xlUp).Rows.ClearContents 'select till range u need
    For Each Ws In Worksheets
        If Ws.Name <> "ur first sheet name" Then
            
            lr = Ws.Range("B" & Rows.Count).End(xlUp).Row
            lrS = s1.Range("A" & Rows.Count).End(xlUp).Row
            Ws.Range("A2:T" & lr).Copy ' select till range u need
            s1.Range("A" & lrS + 1).PasteSpecial xlPasteFormats, , , False
            s1.Range("A" & lrS + 1).PasteSpecial xlPasteAll, , , False
        End If
    Next Ws
    
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each Ws In Application.ActiveWorkbook.Worksheets
    If Ws.Name <> "ur first sheet name"  Then
        Ws.Delete
    End If
Next

End Sub

select what range u need
 
Top