Si të konvertoni fletën e punës Excel në tabelën e fjalës amtare përmes VBA

Në këtë artikull, ne jemi të kënaqur t'ju ofrojmë mënyrën për të kthyer fletën e punës Excel në tabelën origjinale të Word nëpërmjet VBA.

Skedarët e Office-it vijnë në formate të ndryshme. Herë pas here, do të hasni në kërkesën për të konvertuar formatin e skedarit nga njëri në tjetrin. Për shembull, konvertimi midis skedarit Excel dhe dokumentit Word është një nga më të kërkuarit. Në fakt, e kemi diskutuar këtë temë në një nga artikujt tanë të mëparshëm: 5 mënyra të thjeshta për të transferuar të dhënat tabelare të Excel në Word

Sot, ekziston një mënyrë makro shumë më e shpejtë për të nxjerrë librin e punës të Excel në një dokument Word. Dhe të gjitha përmbajtjet në një fletë pune do të konvertohen në një tabelë amtare Word.

Instaloni dhe ekzekutoni Word Macro

Do ta ekzekutojmë makron në Word. Meqenëse një pjesë e kodeve në makro përfshin aktivizimin e objektit Excel, duhet të shtoni një referencë të bibliotekës së objekteve.

1. Para së gjithash, hapni një dokument të ri bosh në Word.
2. Dhe shtypni "Alt+ F11" për të hapur redaktorin VBA në Word.
3. Pastaj klikoni "Normal" në kolonën e majtë.
4. Pastaj klikoni "Fut" dhe zgjidhni "Modul".
5. Tani ju keni një modul të ri. Klikoni dy herë mbi të për t'u hapur.
6. Pastaj klikoni në skedën "Vegla" në shiritin e menusë.
7. Zgjidhni "Referencat" në menunë rënëse.
8. Në dritaren "Referencat-Normale", kontrolloni kutinë "Biblioteka e Objekteve Microsoft Excel 14.0" dhe klikoni "Në rregull".
9. Më pas kopjoni dhe ngjisni kodet e mëposhtme në modulin e ri:

Sub ExtractWorksheetsToWordDocument()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim objTable As Table
  Dim dlgFile As FileDialog
  Dim strFileName As String
 
  Application.ScreenUpdating = False
 
  ' Select an Excel file from Browse window.
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    If .Show = -1 Then
      strFileName = .SelectedItems(1)
    Else
      MsgBox "No file is selected! Please select the target file."
      Exit Sub
    End If
  End With
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open(strFileName)
  objExcel.Visible = False
 
  ' Step through each worksheet in the Excel file and extract data to each _
  individual section in Word document.
  For Each objWorksheet In ActiveWorkbook.Worksheets
    objWorksheet.UsedRange.Copy
    ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
    ActiveDocument.Range.InsertAfter objWorksheet.Name
    If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
      With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=wdSectionBreakNextPage
      End With
    End If
  Next objWorksheet
 
  For Each objTable In ActiveDocument.Tables
    objTable.Borders.Enable = True
  Next objTable
 
  ' Close the Excel application using the Quit method.
  objExcel.Application.Quit
  ' Release the object variables.
  Set objWorksheet = Nothing
  Set objWorkbook = Nothing
  Set objExcel = Nothing

  Application.ScreenUpdating = True
End Sub

10. Klikoni "Run" ose shtypni "F5".
11. Tani është dritarja "Shfleto". Thjesht zgjidhni një skedar Excel dhe klikoni "OK".

Këtu është rezultati:

Sigurohuni që dokumentet tuaja ende funksionojnë

Ndoshta ka qindra dokumente të ruajtura në kompjuterin tuaj. Me kalimin e kohës, është e lehtë të harrosh disa prej tyre. Dhe kur kujtoni se i kontrolloni në një moment, ju i gjeni vetëm të paarritshëm. Atëherë duhet të përdorni menjëherë një mjet për të riparimi dok.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni xlsx pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com