Копировать данные из выбранного файла excel

Question

Я пытаюсь создать макрос, который при запуске позволит мне выбрать данный файл и проверить данные в столбце C этого выбранного файла. Я очень новичок в VBA и имею лишь рудиментарные навыки. У меня есть все части моего кода, за исключением той части, где я извлекаю данные из файла переменных и вставляю их в столбец А моего файла макроса для выполнения функций обзора.

Я заполнил приведенный ниже код, чтобы заполнить данные из столбца C любого выбранного выбранного файла в столбце A макрокоманды из того, что я мог бы объединить вместе с поиском по сайту, но я все еще получаю сообщение об ошибке 400 после выбора файла для открытия при запуске этого Sub. Был бы признателен за любую помощь в выяснении этой части.

Спасибо!

Sub PopulateUploaderFunds() 
'Pull in funds from uploader to be reviewed for custody and mirror accounts 
Dim uploadfile As Variant 
Dim uploader As Workbook 
MsgBox ("Please select uploader file to be reviewed") 
uploadfile = Application.GetOpenFilename() 
If uploadfile = "False" Then 
Exit Sub 
End If 
Workbooks.Open uploadfile 
Set uploader = ActiveWorkbook 
With uploader 
    Application.CutCopyMode = False 
    Range("C1").End(xlDown).Select 
    Selection.Copy 
End With 
Windows("Test Mirror Macro Build Test.xlsm").Activate 
Sheets("Sheet1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
End Sub 

Answer 1

Похоже, проблема с тем, как вы перемещаетесь между тетрадями, попробуйте это:

Sub PopulateUploaderFunds() 
'Pull in funds from uploader to be reviewed for custody and mirror accounts 
Dim uploadfile As Variant 
Dim uploader As Workbook 
Dim CurrentBook As Workbook 

Set CurrentBook = ActiveWorkbook 
MsgBox ("Please select uploader file to be reviewed") 
uploadfile = Application.GetOpenFilename() 
    If uploadfile = "False" Then 
     Exit Sub 
    End If 
Workbooks.Open uploadfile 
Set uploader = ActiveWorkbook 
With uploader 
    Application.CutCopyMode = False 
    Range("C:C").Copy 
End With 
CurrentBook.Activate 
Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
End Sub