Kaip konvertuoti „Excel“ darbalapį į „Word“ lentelę naudojant VBA

Šiame straipsnyje mes džiaugiamės galėdami pasiūlyti jums būdą konvertuoti „Excel“ darbalapį į vietinę „Word“ lentelę naudojant VBA.

„Office“ failai gali būti įvairių formatų. Kartais susidursite su poreikiu konvertuoti failų formatus iš vieno į kitą. Pavyzdžiui, konvertavimas tarp „Excel“ failo ir „Word“ dokumento yra vienas iš labiausiai reikalingų. Tiesą sakant, šią temą jau aptarėme viename iš ankstesnių straipsnių: 5 paprasti būdai perkelti „Excel“ lentelės duomenis į „Word“.

Šiandien yra daug greitesnis makrokomandos būdas ištraukti "Excel" darbaknygę į "Word" dokumentą. Ir visas darbalapio turinys bus konvertuotas į vietinę „Word“ lentelę.

Įdiekite ir paleiskite Word makrokomandą

Makrokomandą paleisime programoje „Word“. Kadangi dalis makrokomandos kodo apima „Excel“ objektų aktyvavimą, turite pridėti objektų bibliotekos nuorodą.

1. Visų pirma, atidarykite naują tuščią „Word“ dokumentą.
2. Ir paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių „Word“.
3. Tada kairiajame stulpelyje spustelėkite „Normalus“.
4. Tada spustelėkite „Įterpti“ ir pasirinkite „Modulis“.
5. Dabar jūs turite naują modulį. Dukart spustelėkite jį, kad atidarytumėte.
6. Tada meniu juostoje spustelėkite skirtuką „Įrankiai“.
7. Išskleidžiamajame meniu pasirinkite „Nuorodos“.
8. Lange „Nuorodos-įprasta“ pažymėkite langelį „Microsoft Excel 14.0 objektų biblioteka“ ir spustelėkite „Gerai“.
9. Tada nukopijuokite ir įklijuokite šiuos kodus į naują modulį:

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. Spustelėkite „Vykdyti“ arba paspauskite „F5“.
11. Dabar yra langas „Naršyti“. Tiesiog pasirinkite „Excel“ failą ir spustelėkite „Gerai“.

Štai rezultatas:

Įsitikinkite, kad jūsų dokumentai vis dar veikia

Jūsų kompiuteryje gali būti saugomi šimtai dokumentų. Laikui bėgant kai kuriuos iš jų lengva pamiršti. Ir kai prisimeni, kad kada nors juos tikrinai, pamatai, kad jie nepasiekiami. Tada turėtumėte nedelsdami kreiptis į įrankį remonto doc.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com