從變量名稱的文件複製數據

Question

我有3個文件，我從中複製數據，它們每個月都有一個名稱始終相同的開始，但每個月都會更改結尾。我嘗試過並嘗試過，但無處可去。

這是有效的，但是在這裏我改變了名字以使它工作，我也改變了文件的名稱，只是爲了這個測試。

Windows("Försäljningsdata Aktuell period.xlsx").Activate 
Range("A2").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Windows("Datamatchningsfil Master.xlsm").Activate 
Sheets("Försäljningsdata").Select 
Range("A2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

下面你看到的日期，這將改變每個月。已經嘗試過*＃但沒有得到它的訣竅。 8月份每個月都會改變，這個我可以改變，所以它會在2017年到來，我認爲這可以讓事情變得輕鬆起來。

Windows("Copy of CDPPT_KPI_2017.08-2017.08_43.xlsx").Activate 
Range("A2").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Windows("Datamatchningsfil Augusti.xlsm").Activate 
Sheets("Försäljningsdata").Select 
Range("A2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

Answer 1

我推薦使用這項任務的功能，並刪除所有不必要的.select。要調用該函數，您需要知道確切的文件名。

Public Sub DoActions() 
    DoMyAction "Copy of CDPPT_KPI_2017.08-2017.08_43.xlsx", "Datamatchningsfil Augusti.xlsm" 
End Sub 


Public Function DoMyAction(SourceFile As String, DestinationFile As String) 
    Dim wsSource As Worksheet 
    Set wsSource = Workbooks(SourceFile).Worksheets(1) 'source is the first worksheet in the file 

    With wsSource 
     .Range(.Range("A2"), .Range("A2").End(xlToRight).End(xlDown)).Copy 
    End With 

    Workbooks(DestinationFile).Worksheets("Försäljningsdata").Range("A2").PasteSpecial _ 
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End Function 

要找到確切的文件名，您可以使用FileDialogBox讓用戶選擇一個文件（請參閱 How to get selected path and name of the file using open file dialog control）。

或者如果該文件已在Excel中打開，那麼您可以使用循環遍歷所有工作簿來查找特定模式。

Public Sub ExampleToFindAWorkbookByPattern() 
    Dim iWb As Workbook, FoundWb As Workbook 
    For Each iWb In Workbooks 'loop throug all workbooks 
     ' look if there is "2017.08" in it's name 
     If InStr(1, iWb.Name, "2017.08") <> 0 Then 
      Set FoundWb = iWb 'name was found, set workbook in FoundWb 
      Exit Sub 
     End If 
    Next iWb 

    'now you can use it e.g. 
    DoMyAction FoundWb.Name, "Datamatchningsfil Augusti.xlsm" 
End Sub