Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7287 / 76807

←次へ　｜　前へ→


	【75111】別ファイルのシートを取り込んでコピーすると図面が出てこない

ちえ - 13/12/12(木) 9:56 -


	引用なし

	パスワード

こんにちわ。
早速質問させていただきます。

別ブックからシートを取り込んでコピーするマクロを組んでいます。
図面があるのですが、実行すると『このイメージは現在表示できません』と出ます。
列は揃うけど行が揃わなかったりもします。
2003の時は動いていたんですが、2010で実行するとこうなります。

なんとか2010で動かしていきたいので、よろしくお願い致します。

　 Application.ScreenUpdating = False

　 fna = Application.GetOpenFilename(Title:="\")
　 If fna = "False" Then Exit Sub
　　
　 Workbooks.Open fna
　　
　 f0 = ThisWorkbook.Name　　　　　　
　 f1 = ActiveWorkbook.Name　　　　　
　 s1 = ActiveSheet.Name　　　　　　　
　
　　If f1 Like "*sheet1*" Then
　　　 f2 = "sheet1"
　　　ElseIf f1 Like "*sheet2*" Then
　　　 f2 = "sheet2"
　　　ElseIf f1 Like "*sheet3*" Then
　　　 f2 = "sheet3"
　　　End If
　　
　
　　Windows(f1).Activate
　　Cells.Select
　　Selection.Copy
　　Windows(f0).Activate

　　sc = Sheets.Count
　　For i = sc To 1 Step -1
　　　 sn = Sheets(i).Name
　　
　　　If sn = f2 Then
　　　　 Sheets(sn).Select
　　　　 Range("A1").Select
　　　　 ActiveSheet.Paste
　　　　 Range("A1").Select
　　　　 ActiveWindow.Zoom = 80
　　　　 GoTo 100
　　　 End If
　　Next
　　
100:
　
　
　 Windows(f1).Activate
　 Application.CutCopyMode = False
　 Windows(f1).Close
　
　 Application.ScreenUpdating = True
　
　　　　
End Sub

2 hits

▼

【75111】別ファイルのシートを取り込んでコピーすると図面が出てこない ちえ 13/12/12(木) 9:56

≪