Excel-ийн ажлын хуудсыг VBA-ээр хэрхэн эх үгийн хүснэгт рүү хөрвүүлэх вэ

Энэ нийтлэлд бид Excel-ийн ажлын хуудсыг VBA-ээр эх Word хүснэгт рүү хөрвүүлэх аргыг санал болгож байгаадаа баяртай байна.

Оффисын файлууд янз бүрийн форматтай байдаг. Хааяа та файлын форматыг нэг форматаас нөгөө формат руу хөрвүүлэх шаардлагатай тулгарах болно. Жишээлбэл, Excel файл болон Word баримтын хооронд хөрвүүлэх нь хамгийн их шаардлагатай зүйлсийн нэг юм. Үнэндээ бид энэ сэдвийг өмнөх нийтлэлүүдийнхээ нэгэнд хэлэлцсэн: Excel хүснэгтэн өгөгдлийг үгэндээ шилжүүлэх 5 хялбар арга

Өнөөдөр Excel-ийн ажлын номыг Word баримт бичигт задлах маш хурдан макро арга байдаг. Ажлын хуудсан дахь бүх агуулгыг үндсэн Word хүснэгт болгон хөрвүүлэх болно.

Word макро суулгаж ажиллуулна уу

Бид Word дээр макро ажиллуулах болно. Макро дахь кодуудын нэг хэсэг нь Excel объектыг идэвхжүүлэхийг шаарддаг тул та объектын сангийн лавлагаа нэмэх шаардлагатай.

1. Юуны өмнө шинэ хоосон Word баримт бичгийг нээнэ үү.
2. VBA засварлагчийг Word дээр нээхийн тулд “Alt + F11” товчийг дарна уу.
3. Дараа нь зүүн баган дээрх "Хэвийн" дээр дарна уу.
4. Дараа нь "Insert" дээр дарж "Module" -г сонгоно уу.
5. Одоо та шинэ модультай боллоо. Үүнийг нээхийн тулд давхар товшино уу.
6. Дараа нь цэсийн мөрөнд "Tools" табыг дарна уу.
7. Унтраах цэснээс "Ашигласан материал" -ыг сонгоно уу.
8. "Лавлагаа-Хэвийн" цонхонд "Microsoft Excel 14.0 Объектын Номын Сан" гэсэн нүдийг сонгоод "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” дээр дарахад л хангалттай.

Үр дүн энд байна:

Бичиг баримтаа ажиллуулаарай

Таны компьютер дээр хэдэн зуун баримт бичиг хадгалагдаж магадгүй. Цаг хугацаа өнгөрөх тусам заримыг нь мартахад амархан байдаг. Хэзээ нэгэн цагт тэдгээрийг шалгаж байснаа санахад та зөвхөн нэвтрэх боломжгүй байдаг. Дараа нь та нэн даруй ашиглах хэрэгсэлд хандах хэрэгтэй засвар бичиг.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx-ийг засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com