Копирование данных из Excell to Word - VBA
Формулировка задачи:
Привет. Помогите подправить код, пожалуйста. Нужно, чтобы в документ Word копировались данные не из консолидированной ячейки А20, а из массива А1:А19, и чтобы при этом пустые ячейки не копировались (через объявление Dim LastRow?). И еще хотелось бы иметь варианты кода для копирования в уже имеющийся\путь документ Word с предварительной очисткой содержимого этого документа, и еще вариант кода для копирования в новый документ Word с одновременным форматированием этого нового документа под 3 колонки.
Решение задачи: «Копирование данных из Excell to Word»
textual
Листинг программы
Sub PersonalToWord() Dim WordApp As Object, x, s Set WordApp = CreateObject("Word.Application") With WordApp .Visible = True .Documents.Add With .Selection .Font.Size = 14 .TypeText Text:="Changed Text " + vbCrLf For Each x In Range("A1:A19").Value If Len(x) Then s = s & " " & x Next .TypeText Mid$(s, 2) & " Примеч." End With End With Set WordApp = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д