Excel Çalışma Sayfasını VBA ile Yerel Word Tablosuna Dönüştürme

Bu yazıda, Excel çalışma sayfasını VBA aracılığıyla yerel Word tablosuna dönüştürmenin yolunu sunmaktan mutluluk duyuyoruz.

Ofis dosyaları çeşitli formatlarda olabilir. Zaman zaman, dosya formatını birinden diğerine dönüştürme ihtiyacıyla karşılaşabilirsiniz. Örneğin, Excel dosyası ile Word belgesi arasında dönüştürme en çok ihtiyaç duyulanlardan biridir. Aslında, bu konuyu önceki makalelerimizden birinde ele almıştık: Excel Tablo Verilerini Word'ünüze Aktarmanın 5 Kolay Yolu

Bugün, Excel çalışma kitabını bir Word belgesine çıkarmanın çok daha hızlı bir makro yolu var. Ve bir çalışma sayfasındaki tüm içerikler yerel bir Word tablosuna dönüştürülecektir.

Word Makrosunu Kurun ve Çalıştırın

Makroyu Word'de çalıştıracağız. Makrodaki kodların bir kısmı Excel nesnesini tetiklemeyi içerdiğinden, bir nesne kitaplığı referansı eklemeniz gerekecek.

1. Öncelikle, yeni ve boş bir Word belgesi açın.
2. Ve Word'de VBA düzenleyicisini açmak için "Alt + F11" tuşlarına basın.
3. Ardından sol sütundaki "Normal"i tıklayın.
4. Ardından “Ekle”ye tıklayın ve “Modül”ü seçin.
5. Artık yeni bir modülünüz var. Açmak için üzerine çift tıklayın.
6. Ardından menü çubuğundaki “Araçlar” sekmesine tıklayın.
7. Açılır menüden "Referanslar"ı seçin.
8. “Referanslar-Normal” penceresinde, “Microsoft Excel 14.0 Nesne Kitaplığı” kutusunu işaretleyin ve “Tamam”ı tıklayın.
9. Daha sonra aşağıdaki kodları kopyalayıp yeni modüle yapıştı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ıştır”a tıklayın veya “F5”e basın.
11. Şimdi "Gözat" penceresi var. Sadece bir Excel dosyası seçin ve “Tamam”a tıklayın.

İşte sonuç:

Belgelerinizin Hala Çalıştığından Emin Olun

Bilgisayarınızda saklanan muhtemelen yüzlerce belge vardır. Zaman geçtikçe, bazılarını unutmak kolaydır. Ve bir noktada onları kontrol ettiğinizi hatırladığınızda, onları yalnızca erişilemez bulursunuz. O zaman hemen bir araca başvurmalısınız. tamir doktoru.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xlsx'i düzelt hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com