როგორ გადავიტანოთ Excel-ის სამუშაო ფურცელი მშობლიურ Word ცხრილში VBA-ის საშუალებით

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ამ სტატიაში მოხარული ვართ შემოგთავაზოთ Excel-ის სამუშაო ფურცლის მშობლიურ Word ცხრილად VBA-ს საშუალებით გადაქცევის გზა.

Office ფაილები სხვადასხვა ფორმატშია. დროდადრო, თქვენ წააწყდებით ფაილის ერთი ფორმატიდან მეორეში გადაყვანის მოთხოვნას. მაგალითად, Excel ფაილსა და Word დოკუმენტს შორის კონვერტაცია ერთ-ერთი ყველაზე მოთხოვნადია. სინამდვილეში, ეს თემა ჩვენს ერთ-ერთ წინა სტატიაში განვიხილეთ: Excel-ის ტაბულური მონაცემების თქვენს Word-ში გადატანის 5 მარტივი გზა

დღეს, არსებობს ბევრად უფრო სწრაფი მაკრო გზა Excel-ის სამუშაო წიგნის Word დოკუმენტში ამოსაღებად. და სამუშაო ფურცლის ყველა შინაარსი გარდაიქმნება მშობლიურ Word ცხრილში.

დააინსტალირეთ და გაუშვით Word მაკრო

მაკროს Word-ში გავუშვებთ. რადგან მაკროში კოდების ნაწილი Excel-ის ობიექტის გააქტიურებას მოიცავს, თქვენ უნდა დაამატოთ ობიექტის ბიბლიოთეკის მითითება.

პირველ რიგში, გახსენით ახალი ცარიელი Word დოკუმენტი.
და დააჭირეთ "Alt+ F11" რომ გახსნათ VBA რედაქტორი Word-ში.
შემდეგ დააჭირეთ ღილაკს "ნორმალური" მარცხენა სვეტში.
შემდეგ დააჭირეთ "ჩასმა" და აირჩიეთ "მოდული".
ახლა თქვენ გაქვთ ახალი მოდული. ორჯერ დააწკაპუნეთ მასზე გასახსნელად.
შემდეგ დააჭირეთ ღილაკს "ინსტრუმენტები" მენიუს ზოლში.
ჩამოსაშლელი მენიუში აირჩიეთ "ცნობები".
ფანჯარაში „ჩვეულებრივი მითითებები“ მონიშნეთ ველი „Microsoft Excel 14.0 ობიექტის ბიბლიოთეკა“ და დააჭირეთ ღილაკს „კარგი“.
შემდეგ დააკოპირეთ და ჩასვით შემდეგი კოდები ახალ მოდულში:

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

დააჭირეთ "Run" ან დააჭირეთ "F5".
ახლა არის "დათვალიერების" ფანჯარა. უბრალოდ აირჩიეთ Excel ფაილი და დააჭირეთ "OK".

აი შედეგი:

დარწმუნდით, რომ თქვენი დოკუმენტები ჯერ კიდევ მუშაობს

თქვენს კომპიუტერში შესაძლოა ასობით დოკუმენტი იყოს შენახული. რაც დრო გადის, ზოგიერთი მათგანის დავიწყება ადვილია. და როდესაც გახსოვთ მათი შემოწმება რაღაც მომენტში, თქვენ მხოლოდ მიგაჩნიათ ისინი მიუწვდომელი. მაშინ დაუყოვნებლივ უნდა მიმართოთ ხელსაწყოს სარემონტო დოკუმენტი.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის შეასწორეთ xlsx მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად