| |
はじめまして。初心者です。宜しくお願いします。
他のブックをダイアログボックスで指定し、開き（画面が切り替わるのを制御）
連続するセルの値だけをコピペしたいのです。
過去ログを参考に、下記のように組んだのですが
うまくいきません。
TargetBookの指定でエラーが出ます。データ型が違うようで・・・
どなたかご教示お願いします。
-----------------
Dim myBookname As String
Dim ReturnBook As Workbook, TargetBook As Workbook
Sub オープンコピペ()
Set ReturnBook = ActiveWorkbook
Application.ScreenUpdating = False
myBookname = Application.GetOpenFilename("(*.XLS),*.XLS")
If myBookname <> "False" Then
Workbooks.Open myBookname
End If
TargetBook = myBookname
ReturnBook.Activate
Application.ScreenUpdating = True
myBookname.Worksheets(2).Range("AQ4:AQ34").Copy
ReturnBook.Worksheets(2).Range("E5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
TargetBook.Close False
Set TargetBook = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
