|
▼つん様
ご返事遅れて申し訳ありません。
すごく変でした。
Workbooks.Open Filename:="Z:\管理\情報システム室\UserName\Daiky_Backup_Data\Backup_Data\" & Sname & "\バックアップ " & IData & ".htm"
Windows("バックアップ " & IData & ".htm").Activate
Cells.Select
Selection.Copy
Windows("Daily_Backup_Data(tky02,tsrv03,rdsrv03).xls").Activate
Worksheets("転記データ作成").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("転記データ作成").Range("A1").Select
Workbooks("バックアップ " & IData & ".htm").Close
一応、上記で欲しい結果となったのですが、以前教えて頂いた、
シートの移動でも同じ結果となるのでしょうか。
もう少し自身で勉強してみます。
ありがとうございました。
|
|