Excel VBA質問箱 IV

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

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


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

69521 / 76807

←次へ　｜　前へ→


	【11804】Re:セルのコピーでシステムエラー

megu - 04/3/16(火) 16:14 -


	引用なし

	パスワード

今更ですが、困っているコードを載せておきます。 -------------------------------------------------- Sub btnTakeOver_Click() 　　ActiveWorkbook.Save 　　　　With Worksheets("Sheet2") 　　　　Dim strCreateBookPath As String 　　　　' 名前を付けて保存ダイアログ表示　　　　strCreateBookPath = Application.GetSaveAsFilename("引継", "EXCEL形式 (*.xls),*.xls") 　　　　　　　　' クリアする (Sheet1からコピー&ペースト) 　　　　Worksheets("Sheet1").Visible = True 　　　　' ■■■↓エラー箇所ここから↓■■■ 　　　　Worksheets("Sheet1").Range("H33:BK63").Copy (.Range("H33:BK63")) 　　　　' ■■■↑エラー箇所ここまで↑■■■ 　　　　Worksheets("Sheet1").Visible = xlVeryHidden 　　　　　　　　' ユーザーが設定した名前で保存する　　　　ActiveWorkbook.SaveAs Filename:=strCreateBookPath 　　　　　　　　End With End Sub