Мне нужно экспортировать несколько диапазонов из разных таблиц в один текстовый файл. Я хочу, чтобы диапазоны ячеек добавлялись один за другим. В настоящее время я использую этот код, который отлично работает для одного диапазона на одном листе, что мне нужно изменить, чтобы он работал с большим количеством диапазонов?Экспорт нескольких диапазонов в txt-файл
Пример диапазонов Я хотел бы добавить
Sheet1 A2:E50
Sheet2 A2:F60
Sheet4 A2:C45
Текущий код
Sub Export()
Dim r As Range, c As Range
Dim sTemp As String
Open Workbooks("Test.xlsm").Path & "\Test.SQL" For Output As #1
For Each r In Worksheets("SQL1").Range("A1:D50").Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c
'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1
End Sub
Вот альтернативный способ сделать это ... Скопируйте соответствующие диапазоны в новую книгу, а затем сохранить эту книгу как CSV? –
уже думал об этом, и его не очень жизнеспособно, учитывая, что около 10 000 строк ячеек им экспортируется, что является причиной того, что мне действительно нужно изменить этот код. – Windmill
Тем более, что нужно сделать это с помощью подхода, о котором я говорил :) Гораздо лучше, чем зацикливание, хотя 10000 строк ячеек? ;) –