Экспорт конкретных данных из Excel в Word

Question

Я пытаюсь найти макрос, который будет искать конкретные столбцы в довольно большом файле Excel и экспортировать/скопировать их каждый в новый файл Microsoft Word.

Например, скажем, я хочу столбцы H, I, J и O из файла Excel, каждый со своим собственным документом Microsoft Word (надеюсь, с документом под названием как первые данные ячейки каждого столбца).

Обычно я работаю с макросами Microsoft Word, но Excel кажется более сложным.

Answer 1

Если вы хотите написать макрос, вам необходимо использовать ссылку Microsoft Word x.x Object Library. Затем вы можете использовать тип Word.Application для управления Word.

Например, это будет открывать и закрывать экземпляр Word:

Dim w As Word.Application 
Set w = CreateObject("Word.Application") 
w.Visible = True ' if you want the user to see the window 
w.Quit 

Чтобы получить доступ к данным из ячеек в столбцах, которые вы хотите, вы должны использовать Worksheet.Cells таблицу. Например, чтобы прочитать колонку H (H - 8-я колонка):

Dim i As Integer 
Dim s As String 
i = 1 

Do 
    s = ActiveSheet.Cells(i, 8) 
    If s = "" Then Exit Do 
    MsgBox s 
    i = i + 1 
Loop 

Я считаю, что вы можете начать здесь.