|
▼ぱっせんじゃー さん:
ファイル名を指定して特定のファイルを選ぶのは
以下のようでいいんですよね?
Sub ファイルを開く()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
そのあとのデータをコピーする部分を記録してみたのですが
どうつなげればいいのか、わかりません。
教えてください。
'Sub Macro3()
ChDir "C:\Documents and Settings\AYUMI\デスクトップ"
Workbooks.Open Filename:="C:\Documents and Settings\AYUMI\デスクトップ\元データ.xls"
ActiveWindow.SmallScroll Down:=-6
Range("B2:F6").Select
Selection.Copy
Windows("書き込みデータ.xls").Activate
Range("B3").Select
ActiveSheet.Paste
Windows("元データ.xls").Activate
Range("B9:F13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("書き込みデータ.xls").Activate
Range("B9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
|
|