Ինչպես փոխարկել Excel- ի աշխատանքային էջը բնիկների բառի աղյուսակ VBA- ի միջոցով

Բառային լուծումներ Սեպտեմբեր 28, 2025

Այս հոդվածում մենք ուրախ ենք առաջարկել ձեզ Excel- ի աշխատաթերթը VBA- ի միջոցով մայրենի Word աղյուսակի փոխակերպելու միջոց:

Office ֆայլերը լինում են տարբեր ձևաչափերի։ Ժամանակ առ ժամանակ դուք կհանդիպեք ֆայլի ձևաչափը մեկից մյուսը փոխակերպելու անհրաժեշտության։ Օրինակ, Excel ֆայլի և Word փաստաթղթի փոխակերպումը ամենապահանջվածներից մեկն է։ Իրականում, մենք այս թեման քննարկել ենք մեր նախորդ հոդվածներից մեկում. Excel աղյուսակային տվյալները ձեր բառի մեջ փոխանցելու 5 հեշտ եղանակներ

Այսօր կա Excel- ի աշխատանքային գիրքը Word փաստաթղթում արդյունահանելու շատ ավելի արագ մակրո եղանակ: Եվ աշխատաթերթի բոլոր բովանդակությունը կվերածվի հայրենի Word աղյուսակի:

Տեղադրեք և գործարկեք Word մակրոը

Մենք կգործարկենք մակրոն Word-ում։ Քանի որ մակրոյի կոդերի մի մասը ներառում է Excel օբյեկտի ակտիվացում, դուք պետք է ավելացնեք օբյեկտային գրադարանի հղում։

Նախ և առաջ, բացեք նոր դատարկ Word փաստաթուղթ։
Եվ սեղմեք «Alt + F11» ՝ Word- ում VBA խմբագիր բացելու համար:
Դրանից հետո կտտացրեք «Սովորական» ձախ սյունակին:
Հաջորդը կտտացրեք «Տեղադրել» կետին և ընտրել «Մոդուլ»:
Այժմ դուք ունեք նոր մոդուլ: Կրկնակի կտտացրեք այն, որպեսզի բացվի:
Դրանից հետո կտտացրեք «Գործիքներ» ներդիրին ընտրացանկում:
Բացվող ընտրացանկում ընտրեք «Հղումներ»:
«Հղումներ-Նորմալ» պատուհանում նշեք «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 ֆայլ և կտտացրեք «Լավ»:

Ահա արդյունքը.

Համոզվեք, որ ձեր փաստաթղթերը դեռ աշխատում են

Հնարավոր է, ձեր համակարգչում պահվում են հարյուրավոր փաստաթղթեր: Timeամանակն անցնում է, դրանցից մի քանիսը մոռանալը հեշտ է: Եվ երբ ինչ-որ պահի հիշում ես դրանք ստուգել, դրանք միայն անհասանելի ես թվում: Ապա դուք պետք է անմիջապես դիմեք գործիքի վերանորոգման փաստաթուղթ.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում շտկել xlsx- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com