= Concatentate와 같은 Excel 수식을 사용하여 완성 된 문장을 "StudentInfo"와 같은 명명 된 범위의 "Summary"라는 별도 탭에 수집 할 수 있습니다. 그런 다음 스프레드 시트를 닫습니다. 단어
, 올바른 자리로 커서를 얻을 수 있도록 기술을 사용,이 시도 :
Sub CopyNamedRangeFromExcelWorkbook()
' For this to work, must go to VB Editor and pick --> Tools > References > Miscorsoft Excel 15.0 Obj Lib
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Dim xlWorkbook As Excel.Workbook
Set xlWorkbook = _
xlApp.Workbooks.Open("C:\Users\Desdemona\Desktop\TheSpreadsheet.xlsx")
xlWorkbook.Worksheets("Summary").Range("StudentInfo").Copy
Selection.Paste ' pastes the excel data as a Word table
xlWorkbook.Close
xlApp.Quit
' now apply a format to the word table, or revert it to text, or whatever.
End Sub