Выберите диапазон с определенными критериями для экспорта в несколько файлов CSV

Question

Я хотел бы преобразовать прикрепленный файл Excel в несколько файлов CVS следующим образом:

1. Столбец A = Значения столбца C (Исходное значение) из Excel под статическим заголовком Заголовок = Исходное значение
2. Столбец B = значения столбца G (целевое значение) из Excel под заголовком статического заголовка = целевое значение
3. Соглашение об именовании файла CVS = Столбец E (Имя поля управляющего списка выбора) _Column A (Отображаемое имя) _Column B (Имя поля) --- например, Type_ClientType_PICK_004 --- обратите внимание, что я приложил пример файла CVS для того, что вывод должен смотреть на

В дополнение к вышесказанному - я бы хотел, чтобы код VBA представлял собой цикл для поиска значений UNIQUE в столбце E (Имя поля списка управления) и для разделения файлов CVS с использованием этого столбца. Например, все строки в критерии столбца E = «Тип», ТО создают новый файл CVS ... все строки в соответствии с критериями Столбец E = «Промышленность», ТО создают новый файл CVS ... и т. Д.

Если бы я мог получить приведенный выше код VBA и сохранить все файлы CVS по определенному пути, который был бы УДИВИТЕЛЬНЫМ! Большое спасибо.

Answer 1

Sub ExportRangetoFile()

Dim Rng As Range
Dim WorkRng As Range
Dim xFile As Variant
Dim xFileString As String

On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.Copy
Application.ActiveSheet.Cells.Clear
WorkRng.Copy Application.ActiveSheet.Range("A1")
Set xFile = CreateObject("Scripting.FileSystemObject")
xFileString = Application.GetSaveAsFilename("", filefilter:="Comma Separated Text (*.CSV), *.CSV")
Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
End Sub