Excel VBA質問箱 IV

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

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


7212 / 76732 ←次へ | 前へ→

【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
664 hits

【75111】別ファイルのシートを取り込んでコピーすると図面が出てこない ちえ 13/12/12(木) 9:56 質問
【75117】Re:別ファイルのシートを取り込んでコピー... γ 13/12/12(木) 20:24 発言
【75124】Re:別ファイルのシートを取り込んでコピー... ちえ 13/12/13(金) 11:54 質問
【75125】Re:別ファイルのシートを取り込んでコピー... γ 13/12/13(金) 19:39 発言

7212 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free