シートをコピーして別ブックに名前をつけて保存するプログラム組んだのですが
画像ファイルがあるとエラーコード1004が発生し保存できません
解決策何かあるでしょうか
保存コード下記
sheet(Array("チェックリスト”,"チェックリスト画像”)).Select
sheet(Array("チェックリスト”,"チェックリスト画像”)).copy
a=Worksheets("チェックリスト").Range("B6").Value
myFile="C:¥成績書保存フォルダ¥” & a & "チェックリスト” & ”.xlsx
set xsheet=ActiveSheet
Application.DisplayAlerts=False
ActiveWorkbook.Save Filename:=myFile
Application.DisplayAlerts=Ture
No.2ベストアンサー
- 回答日時:
とりあえず、以下のようなことでしょうか?
--------------------------------------------------------------------------------
Sub test()
Dim ファイル名 As String
ファイル名 = Sheets("チェックリスト").Range("B6").Value
ファイル名 = "C:\成績書保存フォルダ\" & ファイル名 & "チェックリスト" & ".xlsx"
Sheets(Array("チェックリスト", "チェックリスト画像")).Select
Sheets(Array("チェックリスト", "チェックリスト画像")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ファイル名, FileFormat:=51
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
--------------------------------------------------------------------------------
※ コピーしたファイルは閉じていますが、閉じたくなければ「ActiveWindow.Close」を削除してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
右クリックで画像コピー やば...
-
縮小専用でResizedした写真の在...
-
画像データをパスワード管理し...
-
Mac版イラレデータからWindows...
-
教えてください。 パソコンの用...
-
アンインストールしたプログラ...
-
動画のダウンロードが突然出来...
-
交通系icカードとクレカの磁気...
-
ファイルがZipファイルになりま...
-
JPGのロックの解除方法がわかり...
-
要求された参照キーは、どのア...
-
【再】Paint Shop pro7 文字入...
-
アダルトサイトの駆除→その後・...
-
Googleスプレットシートが動かない
-
以前作ったエクセルファイルを...
-
設定の復元
-
IMEが勝手にデスクトップ上に
-
アドレスバーの下に表示される...
-
PCの電源が切れていてもハッキ...
-
Illustrator8.0のエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
右クリックで画像コピー やば...
-
縮小専用でResizedした写真の在...
-
画像データをパスワード管理し...
-
キャプチャとサムネイルの違い
-
Mac版イラレデータからWindows...
-
photoshopでpsdのメタデータ(e...
-
Illustratorで大きな用紙サイズ...
-
デジカメ同時プリントの写真デ...
-
作成したHTMLページをメール送...
-
フルHDの画像・動画をフルHD液...
-
Canon DPP ダウングレード(バ...
-
フォトショップの上書き保存に...
-
画像をCD-Rにコピーする方法
-
HPにエクセル貼り付けは可能...
-
photoshopでpdf画像の読み込み
-
スクリーンショットは安全ですか?
-
入稿データに配置しているepsデ...
-
ヤフー フォトアルバムについて
-
photoshopのパターンオーバーレ...
-
ピカサ3
おすすめ情報
ご返答ありがとうございます
ご教授いただいたコードをそのまま貼り付けて試したのですがjpgをチェック画像に張り付けるとエラーになります
張っていないと名前付けて保存するのですが なにがいけないのでしょうか?