Импортируйте данные в следующую пустую колонку за пределами определенного столбца

Question

Так что я очень новичок в VBA (никогда ранее ничего не писал в ней). Я искал решение, но мне не удалось найти ничего, что бы делало то, что я хотеть.

Мне нужно импортировать данные из CSV и вставить его в следующий пустой столбец за пределами определенного столбца.

Мои первые несколько столбцов будут заняты кнопками, ссылающимися на «материал», поэтому они не могут использоваться для данных.

Так мне нужен скрипт, чтобы сделать это:

1) Импорт данных из одного файла столбца CSV. 2) вставьте данные в следующую пустую колонку, которая находится после столбца E.

Я полностью понимаю, что SO не является платформой для написания кода, и я чувствую себя довольно изворотливым, спрашивая об этом, но я пытался часами и, похоже, исчерпали все ресурсы, с которыми я столкнулся.

Answer 1

Следующие коды должны помочь вам:

Option Explicit 
Sub work() 
Dim i As Integer 
Dim main As Worksheet 
Dim reference As Worksheet 

Set main = ActiveSheet 
Workbooks.Open "C:\Users\vqm1628\Downloads\b.csv" 
Set reference = ActiveSheet 
Range(Cells(1, 1), Cells(Cells(1, 1).End(xlDown).Row, 1)).Copy _ 
    Destination:=main.Cells(1, main.Cells(1, 100).End(xlToLeft).Column + 1) 
'the line above only applies if the first five columns have values 
Application.DisplayAlerts = False 
Workbooks("b.csv").Close 
Application.DisplayAlerts = True 
End Sub 

Я надеюсь, что это может помочь вам;)