VBA မှတဆင့် Excel Worksheet သို့ Native Word Table သို့ပြောင်းနည်း

ဤဆောင်းပါးတွင်၊ ကျွန်ုပ်တို့သည် သင့်အား Excel worksheet ကို VBA မှတစ်ဆင့် မူရင်း Word table သို့ ပြောင်းလဲရန် နည်းလမ်းကို ပေးဆောင်ရန် ဝမ်းမြောက်မိပါသည်။

Office ဖိုင်တွေမှာ format အမျိုးမျိုးရှိပါတယ်။ တစ်ခါတစ်ရံမှာ ဖိုင် format တစ်ခုကနေ တစ်ခုကို ပြောင်းဖို့ တောင်းဆိုမှုတွေနဲ့ ကြုံတွေ့ရနိုင်ပါတယ်။ ဥပမာအားဖြင့် Excel ဖိုင်နဲ့ Word စာရွက်စာတမ်းကြား ပြောင်းလဲခြင်းဟာ အလိုအပ်ဆုံးတွေထဲက တစ်ခုပါ။ တကယ်တော့၊ ဒီအကြောင်းအရာကို ကျွန်တော်တို့ရဲ့ ယခင်ဆောင်းပါးတစ်ခုမှာ ဆွေးနွေးခဲ့ပြီးပါပြီ။ Excel Tabular Data ကို သင့် Word သို့ လွယ်ကူစွာ လွှဲပြောင်းရန် နည်းလမ်း ၅ ခု

ယနေ့တွင်၊ Excel workbook ကို Word document တစ်ခုသို့ ထုတ်ယူရန် ပိုမိုမြန်ဆန်သော macro-နည်းလမ်းတစ်ခုရှိသည်။ အလုပ်စာရွက်ရှိ အကြောင်းအရာအားလုံးကို မူရင်း Word table သို့ ပြောင်းလဲသွားပါမည်။

Word Macro ကို Install လုပ်ပြီး Run လိုက်ပါ။

Word မှာ macro ကို run ပါမယ်။ macro ထဲက code တွေရဲ့ အစိတ်အပိုင်းတစ်ခုက Excel object ကို trigger လုပ်တာ ပါဝင်တာကြောင့် object library reference ကို ထည့်ရပါမယ်။

1. ပထမဦးစွာ Word document အသစ်တစ်ခုကိုဖွင့်ပါ။
2. Word တွင် VBA editor ကိုဖွင့်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
3. ထို့နောက် ဘယ်ဘက်ကော်လံရှိ “Normal” ကိုနှိပ်ပါ။
4. ထို့နောက် "Insert" ကိုနှိပ်ပြီး "Module" ကိုရွေးချယ်ပါ။
5. ယခုသင်သည် module အသစ်တစ်ခုရရှိသည်။ ဖွင့်ရန် ၎င်းကို နှစ်ချက်နှိပ်ပါ။
6. ထို့နောက် မီနူးဘားရှိ “Tools” tab ကိုနှိပ်ပါ။
7. drop-down menu တွင် "ကိုးကားချက်များ" ကိုရွေးချယ်ပါ။
8. “References-Normal” ဝင်းဒိုးတွင် “Microsoft Excel 14.0 Object Library” အကွက်ကို အမှန်ခြစ်ပြီး “OK” ကိုနှိပ်ပါ။
9. မော်ဂျူးအသစ်တွင် အောက်ပါကုဒ်များကို ကော်ပီကူးပြီး ကူးထည့်ပါ-

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. "Run" ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
11. ယခုတွင် "Browse" ဝင်းဒိုးရှိသည်။ Excel ဖိုင်ကိုရွေးပြီး "OK" ကိုနှိပ်ပါ။

ဤသည်မှာ ရလဒ်ဖြစ်သည်။

သင့်စာရွက်စာတမ်းများ အလုပ်ဖြစ်ဆဲဖြစ်ကြောင်း သေချာပါစေ။

သင့်ကွန်ပြူတာတွင် သိမ်းဆည်းထားသော စာရွက်စာတမ်း ရာနှင့်ချီရှိနိုင်သည်။ အချိန်ကြာလာသည်နှင့်အမျှ အချို့သော အရာများကို အလွယ်တကူ မေ့သွားတတ်ပါသည်။ တစ်ချိန်ချိန်တွင် ၎င်းတို့ကို စစ်ဆေးရန် သတိရသောအခါတွင် ၎င်းတို့ကို လက်လှမ်းမမီနိုင်သည်ကို သင်တွေ့နိုင်သည်။ ထို့နောက် သင်ချက်ခြင်း ကိရိယာတစ်ခုကို အသုံးချသင့်သည်။ ပြုပြင်ရေး စာရွက်စာတမ်း.

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xlsx ကိုပြင်ပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com