Как скопировать данные из CSV-файла в другие файлы Excel

Question

Поскольку я новичок в VBA, я создал код, который может открывать файл .csv и копировать данные из .csv в файл excel, не открывая оба.

На самом деле это работает для файлов Excel, но когда я используюCSV-файл, он отображает мне сообщение об ошибке «ПОДПИСАТЬСЯ ИЗ ДИАПАЗОНА». Как мне решить эту проблему?Спасибо!

    Sub Copywb1()
    Dim wkb1 As Workbook
    Dim sht1 As Worksheet
    Dim wkb2 As Workbook
    Dim sht2 As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

Setwkb1 = ThisWorkbook
Setwkb2 = Workbooks.Open("C:\Desktop\AAA.xlsx")
Setwkb1 = Workbooks.Open("C\Reports\BBB.csv")
Setsht1 = wkb1.Sheets("Reports")
Setsht2 = wkb2.Sheets("Fees")

sht1.Range("A1:BM9").Copy
sht2.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wkb2.Close True
wkb1.Close True

  End Sub

Answer 1

Вот рабочий пример, который у меня был, который вы могли бы довольно легко адаптировать к вашим потребностям:

Sub demo_loadDataFromCSV()
    Const csvFile = "x:\mypath\myfile.csv"
    Dim ws As Worksheet, csv As Workbook, cCount As Long, cName As String

    ' Application.ScreenUpdating = False       'keep these commented-out until...
    ' Application.DisplayAlerts = False        ' ...done testing/troubleshooting!

    Set ws = ThisWorkbook.ActiveSheet          'remember where we parked
    Workbooks.Open csvFile                     'open the csv
    Set csv = ActiveWorkbook                   'create object of csv workbook
    cName = csv.Name                           'get name of csv while its open
    ActiveSheet.Columns("A:B").Copy            'copy columns A and B
    ws.Activate                                'go back to the first sheet
    ws.Range("A1").PasteSpecial xlPasteValues  'paste values
    cCount = Selection.Cells.Count             'count pasted cells
    csv.Close                                  'close CSV

    Application.DisplayAlerts = True           're-enable alerts
    Application.ScreenUpdating = True          'resume screen updates

    MsgBox cCount & " cells were copied from " & cName _
                  & " to " & ws.Parent.Name, vbInformation, "Done"
End Sub

---

Дополнительная информация:

• Документы MS: Workbooks.Open Метод (Excel)
• MS Документы: Range.PasteSpecial Метод (Excel) (Excel)
• CFO: Ссылаясь на другие рабочие листы или книги в Excel VBA
• Код VBA: Набор Workbook переменная