|
こんにちわ。
早速質問させていただきます。
別ブックからシートを取り込んでコピーするマクロを組んでいます。
図面があるのですが、実行すると『このイメージは現在表示できません』と出ます。
列は揃うけど行が揃わなかったりもします。
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
|
|