| |
フォルダーの中に
AファイルとBファイルがあります。
本来は、AファイルのデータをBファイルにコピーしたいのですが・・・
できず。
現在、BファイルのデータをAファイルにコピーせざるを得ないコードになります。
コードの4行目がAファイルに＝Fnameになるからです。これをBファイルに表示させるにはどのようにすれば良いでしょう。
現在Aファイルは白紙でBファイルにコードを書いています。この逆をしたいのですが・・・つまりAファイルにコードを書きBファイルにデータをコピーしたいのですが・・・コードの問題点を教えてください。
現在のコードは以下の通りです。
Sub try()
Application.ScreenUpdating = False
Dim Fname As String, Pname As String
Pname = ThisWorkbook.Path & "\"
Fname = Dir(Pname & "*.xls")
If Fname <> "B.xls" Then
Workbooks.Open Pname & Fname
With Workbooks("B.xls").Sheets("sheet1")
Workbooks("B.xls").Sheets("sheet7").Range("D3:F30").Copy _
Workbooks("A.xls").Sheets("sheet7") _
.Range("D3")
End With
Workbooks(Fname).Close True
Fname = Dir()
End If
Application.ScreenUpdating = True
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
