Excel İş Vərəqini VBA vasitəsilə Native Word Cədvəlinə necə çevirmək olar

Bu yazıda sizə Excel iş vərəqini VBA vasitəsilə yerli Word cədvəlinə çevirməyin yolunu təklif etməkdən məmnunuq.

Office faylları müxtəlif formatlarda olur. Bəzən fayl formatlarını bir formatdan digərinə çevirmək tələbi ilə qarşılaşacaqsınız. Məsələn, Excel faylı və Word sənədi arasında çevirmə ən çox tələb olunanlardan biridir. Əslində, bu mövzunu əvvəlki məqalələrimizdən birində müzakirə etmişdik: Excel cədvəl məlumatlarını Word-ə köçürməyin 5 asan yolu

Bu gün Excel iş kitabını Word sənədinə çıxarmağın daha sürətli makro yolu var. Və iş vərəqindəki bütün məzmunlar doğma Word cədvəlinə çevriləcək.

Word Makronunu quraşdırın və işə salın

Makronu Word-də işlədəcəyik. Makrodakı kodların bir hissəsi Excel obyektini işə salmağı əhatə etdiyindən, obyekt kitabxanasına istinad əlavə etməlisiniz.

1. İlk növbədə, yeni boş Word sənədi açın.
2. Və Word-də VBA redaktorunu açmaq üçün “Alt+ F11” düyməsini basın.
3. Sonra sol sütunda "Normal" düyməsini basın.
4. Sonra "Daxil et" düyməsini basın və "Modul" seçin.
5. İndi yeni modulunuz var. Açmaq üçün üzərinə iki dəfə vurun.
6. Sonra menyu çubuğunda "Alətlər" sekmesini vurun.
7. Açılan menyuda "İstinadlar" seçin.
8. "Referanslar-Normal" pəncərəsində "Microsoft Excel 14.0 Obyekt Kitabxanası" qutusunu işarələyin və "OK" düyməsini basın.
9. Sonra aşağıdakı kodları kopyalayın və yeni modula yapışdırın:

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. "Çalış" düyməsini basın və ya "F5" düyməsini basın.
11. İndi "Gözdən keçir" pəncərəsi var. Yalnız bir Excel faylı seçin və "OK" düyməsini basın.

Nəticə budur:

Sənədlərinizin hələ də işlədiyinə əmin olun

Kompüterinizdə saxlanılan yüzlərlə sənəd var. Zaman keçdikcə bəzilərini unutmaq asan olur. Və nə vaxtsa onları yoxladığınızı xatırladığınız zaman onları yalnız əlçatmaz görürsünüz. Sonra dərhal bir vasitəyə müraciət etməlisiniz təmir dok.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com