Настройка:
- Использование VBA в Access
- Экспорт четырех таблиц в виде четырех листов в один новый файл Excel с помощью DoCmd.TransferSpreadsheet acExport
- изменить экспортированный файл с кодом vba в доступе
Что я хочу сделать:
- В файле excel четыре листа. В каждом листе по всем заполненным столбцам должна применяться функция textToColumn.
Проблема:
- Выделение первой строки полужирным шрифтом работает на каждом листе. Функции textToColumn работают только на первом листе.
Мой код:
Dim xlApp As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlSheet = xlApp.Workbooks.Open("C:\Users\jfrick\Documents\BPM Access\Revenue Evolution GFS.xlsx")
With xlApp
.Application.Cells.Select
.Application.Selection.ClearFormats
.Application.Rows("1:1").Select
.Application.Selection.Font.Bold = True
.Application.Cells.Select
.Application.Selection.RowHeight = 12.75
.Application.Selection.Columns.AutoFit
.Application.Range("E:E").TextToColumns
.Application.Range("F:F").TextToColumns
.Application.ActiveWorkbook.Save
.Application.ActiveWorkbook.Close
.Quit
End With
Я также пытался использовать следующий фрагмент кода, но это также изменяет только столбцы на первом листе:
Dim ws As Worksheet
For Each ws In xlApp.Worksheets 'also tried xlSheet.Worksheets but same result
ws.Application.Range("E:E").TextToColumns
ws.Application.Range("F:F").TextToColumns
Next ws
--> Как я могу применить функцию "textToColumn" к столбцам на каждом листе?
