FinePix F30 エクセルの解決方法

質問者が納得minamiaoyama3472さん Aファイルが開いているか、、 開いていればそのままコピペのみ。 開いていなければ、開いて、コピペ、最後にAファイルを閉じます。 あまりうまくないけど、Bファイルに記述するマクロです。。 Sub sample() Dim i As Long, flag As Boolean Const myPath As String = "C:Users●▲■Desktop" 'Aファイルのパス。 Const myBook As String = &quo...

質問者が納得単純にコピーしてます。 で、エラー処理とかは考えてません。 でも、考え方としては参考になるかな。。 Sub 見積書呼出() Dim OpenFile As String Dim myBook As Workbook Dim mySh As Worksheet ChDir "E:見積書" OpenFile = Application.GetOpenFilename("Excelブック,*.*") Set myBook = Workbooks.Open(OpenFil...