|
こんにちは
>GetSaveAsFilename
他のサイトですが同じような質問にレスしたばかりなので、
Sub Macro3()
Dim fPath As Variant
Dim fName As Workbook
'各セルがどのブックのどのシートのセルか明示する事
fPath = Application.GetOpenFilename( _
"Excelファイル (*.xls), *.xls")
If fPath = False Then Exit Sub
Set fName = Workbooks.Open(fPath)
'【例】マクロブックの「Sheet1」の「A1:A5」を
' 開いたブックのアクティブシートの「B6」にコピー
ThisWorkbook.Worksheets("Sheet1").Range("A1:A5") _
.Copy fName.ActiveSheet.Range("B6")
fPath = Application.GetSaveAsFilename( _
"DATA2.xls", "Excelファイル (*.xls), *.xls")
If fPath = False Then Exit Sub
fName.SaveAs FileName:=fPath
fName.Close
Set fName = Nothing
End Sub
|
|