Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6819 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42935】ブックの保存 悩み中 06/9/26(火) 9:35 質問[未読]
【42936】ブックの保存 悩み中 06/9/26(火) 9:36 発言[未読]
【42937】ブックの保存 悩み中 06/9/26(火) 9:37 発言[未読]
【42938】Re:ブックの保存 ハチ 06/9/26(火) 9:42 発言[未読]
【42939】Re:ブックの保存 パン 06/9/26(火) 10:37 発言[未読]
【42940】Re:ブックの保存 パン 06/9/26(火) 10:45 発言[未読]
【42935】ブックの保存
質問  悩み中  - 06/9/26(火) 9:35 -
引用なし
パスワード
   どうして止まってしまうのか教えてください。
何度実行しても、同じ部分で止まります。
どの部分がおかしいのでしょうか？


【マクロの内容】
"集計"というブックのシートをコピーし、
名前を付けて保存というマクロを作成途中です。
マクロは"集計"ブックに記述しました。
また"集計ブックの"規定値シートには
以下の情報が入力してあります。

セルC8→D:\デマンド\
セルI7→RE_CALCU
セルJ7→合計

【エラーの内容】↓
実行じエラー'1004':
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
?指定したフォルダがあることを確認します。
?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
?指定したファイルの名前に次のいずれかの文字も含まれて居ないことを確認します。
?ファイル名及びパス名が半角で218文字より長くないことを確認します。

【実際の記述】（★止まる部分）
Sub 6.保存2.()
　　Sheets("規定値").Select
　　HD = Range("C8")
　　HS = Range("I7")
　　HF = Range("J7")
　　保管 = HD & HF
　　Sheets(HS).Copy
　　Range("A1").Select
　　Application.DisplayAlerts = False　
　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
　　　　ReadOnlyRecommended:=False, CreateBackup:=False

　　ActiveWindow.Close

End Sub
【42936】ブックの保存
発言  悩み中  - 06/9/26(火) 9:36 -
引用なし
パスワード
   マクロ名間違っていました。
すみません。

【実際の記述】（★止まる部分）
Sub 6.保存2.()
　　Sheets("規定値").Select
　　HD = Range("C8")
　　HS = Range("I7")
　　HF = Range("J7")
　　保管 = HD & HF
　　Sheets(HS).Copy
　　Range("A1").Select
　　Application.DisplayAlerts = False　
　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
　　　　ReadOnlyRecommended:=False, CreateBackup:=False

　　ActiveWindow.Close

End Sub
【42937】ブックの保存
発言  悩み中  - 06/9/26(火) 9:37 -
引用なし
パスワード
   マクロ名の記述部分間違っていました。
すみません。

【実際の記述】（★止まる部分）
Sub 保存()
　　Sheets("規定値").Select
　　HD = Range("C8")
　　HS = Range("I7")
　　HF = Range("J7")
　　保管 = HD & HF
　　Sheets(HS).Copy
　　Range("A1").Select
　　Application.DisplayAlerts = False　
　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
　　　　ReadOnlyRecommended:=False, CreateBackup:=False

　　ActiveWindow.Close

End Sub
【42938】Re:ブックの保存
発言  ハチ  - 06/9/26(火) 9:42 -
引用なし
パスワード
   ▼悩み中 さん：
>マクロ名の記述部分間違っていました。
>すみません。
>
>【実際の記述】（★止まる部分）
>Sub 保存()
>　　Sheets("規定値").Select
>　　HD = Range("C8")
>　　HS = Range("I7")
>　　HF = Range("J7")

このときActiveなSheetが違うとか？

>　　保管 = HD & HF
>　　Sheets(HS).Copy
>　　Range("A1").Select
>　　Application.DisplayAlerts = False　

　　Debug.Print 保管

>　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
>　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
>　　　　ReadOnlyRecommended:=False, CreateBackup:=False
>
>　　ActiveWindow.Close
>
>End Sub

保管にどんな文字列が入っているか　確認しましたか？
ファイル名は.xlsまでつけたほうが良いと思います。
【42939】Re:ブックの保存
発言  パン E-MAIL  - 06/9/26(火) 10:37 -
引用なし
パスワード
   ▼悩み中 さん：

こんにちは。
テストしましたがＯＫでした。ということは、
>?指定したフォルダがあることを確認します。
>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
この二点が怪しいですね、

>どうして止まってしまうのか教えてください。
>何度実行しても、同じ部分で止まります。
>どの部分がおかしいのでしょうか？
>
>
>【マクロの内容】
>"集計"というブックのシートをコピーし、
>名前を付けて保存というマクロを作成途中です。
>マクロは"集計"ブックに記述しました。
>また"集計ブックの"規定値シートには
>以下の情報が入力してあります。
>
>セルC8→D:\デマンド\
>セルI7→RE_CALCU
>セルJ7→合計
>
>【エラーの内容】↓
>実行じエラー'1004':
>ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
>?指定したフォルダがあることを確認します。
>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
>?指定したファイルの名前に次のいずれかの文字も含まれて居ないことを確認します。
>?ファイル名及びパス名が半角で218文字より長くないことを確認します。
>
>【実際の記述】（★止まる部分）
>Sub 6.保存2.()
>　　Sheets("規定値").Select
>　　HD = Range("C8")
>　　HS = Range("I7")
>　　HF = Range("J7")
>　　保管 = HD & HF
>　　Sheets(HS).Copy
>　　Range("A1").Select
>　　Application.DisplayAlerts = False　
>　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
>　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
>　　　　ReadOnlyRecommended:=False, CreateBackup:=False
>
>　　ActiveWindow.Close
>
>End Sub
【42940】Re:ブックの保存
発言  パン E-MAIL  - 06/9/26(火) 10:45 -
引用なし
パスワード
   悩み中 さん
追伸、やはりファイルが読み取り専用にするとエラー1004がでました。
保存ファイルのﾌﾟﾛﾊﾟﾃｨｰで確認ください。


>
>こんにちは。
>テストしましたがＯＫでした。ということは、
>>?指定したフォルダがあることを確認します。
>>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
>この二点が怪しいですね、
>
>>どうして止まってしまうのか教えてください。
>>何度実行しても、同じ部分で止まります。
>>どの部分がおかしいのでしょうか？
>>
>>
>>【マクロの内容】
>>"集計"というブックのシートをコピーし、
>>名前を付けて保存というマクロを作成途中です。
>>マクロは"集計"ブックに記述しました。
>>また"集計ブックの"規定値シートには
>>以下の情報が入力してあります。
>>
>>セルC8→D:\デマンド\
>>セルI7→RE_CALCU
>>セルJ7→合計
>>
>>【エラーの内容】↓
>>実行じエラー'1004':
>>ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
>>?指定したフォルダがあることを確認します。
>>?ファイルを含むフォルダが読み取り専用になっていないことを確認します。
>>?指定したファイルの名前に次のいずれかの文字も含まれて居ないことを確認します。
>>?ファイル名及びパス名が半角で218文字より長くないことを確認します。
>>
>>【実際の記述】（★止まる部分）
>>Sub 6.保存2.()
>>　　Sheets("規定値").Select
>>　　HD = Range("C8")
>>　　HS = Range("I7")
>>　　HF = Range("J7")
>>　　保管 = HD & HF
>>　　Sheets(HS).Copy
>>　　Range("A1").Select
>>　　Application.DisplayAlerts = False　
>>　　ActiveWorkbook.SaveAs Filename:=保管, _　　　★ここで止まります。
>>　　　　FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
>>　　　　ReadOnlyRecommended:=False, CreateBackup:=False
>>
>>　　ActiveWindow.Close
>>
>>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6819 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free