Ändern Sie die Zellreferenzverbindung entsprechend einer anderen Zelle

Question

Es gibt täglich Excel-Dateien, die an diesem Netzwerkstandort erstellt wurden (Quelldatei) "J: \ public \ Täglicher Bericht \ Täglicher Bericht \ 2016 \ 08 Aug \ ModecDaily-Bericht \ Täglicher Bericht verwenden 13-08-2016.xlsx ".

Ich möchte einige dieser Zelleninhalte in eine andere Excel-Datei hier kopieren (Zieldatei) "J: \ public \ Täglicher Bericht \ Daily Reports \ 2016 \ 08 Aug \ OIM Formular \ Daily Report Summary 13-08-2016 .xls ".

Die neue Quell-/Zieldatei wird mit dem Datum erstellt werden jeden Tag gewechselt und dies jeden Tag getan werden muss

Vielen Dank im Voraus

Answer 1

Geschehen wie unten

Sub Add_Bridge_1() Dim wbk1 als Arbeitsmappe, wbk2 als Arbeitsmappe

'add your own file path 
fileStr = ThisWorkbook.Worksheets("sheet1").Range("A1") 

Set wbk1 = ActiveWorkbook 
Set wbk2 = Workbooks.Add(fileStr) 

'wbk2.Sheets("Bridge 1").Copy After:=Workbooks("Daily Report 99-08-2016.xlsx").Production Rep 
wbk2.Sheets("Production Rep").Copy After:=wbk1.Sheets(1) 
wbk2.Saved = True 

End Sub

auf A1 210

, wo ich die Formel

Grüße Ganesan gab