
下記のエラーが出ます、似たようなもので新規ファイルで保存できたのですが
今回は出来ない状態になってしまいました。
ちょこちょこマクロ使うのですが、初心者で解決できません。
マクロ先生のご指導をお願いします。
※コピーされたシートが新ファイルで開かれた状態でエラー表示となります。
「実行時エラー '1004':
'SaveAs' メソッドは失敗しました: '_Worksheet' オブジェクト」
'指定額の抽出
Private Const MESSAGE_FINISH = "予算出力処理が完了しました"
Sub 予算データテキスト出力()
Dim ws1
Set ws1 = Worksheets("チェック一覧")
Dim m As Long
m = 3
Dim ws2
Set ws2 = Worksheets("予算データ")
Dim sm As String
Dim ws3
Dim sn
'チェック一覧シートのNo.が無くなるまで処理する
Do Until ws1.Cells(m, 1) = ""
Application.ScreenUpdating = False
If ws1.Cells(m, 4) = "" Then
'ナンバーがある場合は部門等をチェック一覧(ws1)→フォーム(ws2)に転記する
Else
ws2.Cells(2, 2) = ws1.Cells(m, 4)
'各部署のシート名をsmにセットする
sm = ws1.Cells(m, 2)
Set ws3 = Worksheets(sm)
'予算フォーム(ws2)の行変数「s」と各部署シート(ws3)の行変数「n」
Dim s
s = 4
Dim n
n = 9
Dim cnt
cnt = 1
Do Until n = 44
If ws3.Cells(n, 23) = 0 Then
'各数値等を各部署のシート(ws3)→フォーム(ws2)に転記する
Else
ws2.Cells(s, 1) = cnt
ws2.Cells(s, 3) = 6100
ws2.Cells(s, 4) = 0
ws2.Cells(s, 5) = ws3.Cells(3, 4)
ws2.Cells(s, 6) = ws3.Cells(5, 8)
ws2.Cells(s, 7) = ws3.Cells(n, 4)
ws2.Cells(s, 8) = ws3.Cells(n, 24)
ws2.Cells(s, 9) = ws3.Cells(n, 25)
ws2.Cells(s, 10) = ws3.Cells(n, 26)
ws2.Cells(s, 11) = ws3.Cells(n, 27)
ws2.Cells(s, 12) = ws3.Cells(n, 28)
ws2.Cells(s, 13) = ws3.Cells(n, 29)
ws2.Cells(s, 14) = ws3.Cells(n, 31)
ws2.Cells(s, 15) = ws3.Cells(n, 32)
ws2.Cells(s, 16) = ws3.Cells(n, 33)
ws2.Cells(s, 17) = ws3.Cells(n, 34)
ws2.Cells(s, 18) = ws3.Cells(n, 35)
ws2.Cells(s, 19) = ws3.Cells(n, 36)
s = s + 1
cnt = cnt + 1
End If
n = n + 1
Loop
'予算データに転記されたので出力する
ws2.Copy
' ↓↓↓↓↓この下の「SaveAs」がエラーになります。↓↓↓↓↓
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & ws2.Cells(s, 5).Value & ".txt", FileFormat:=xlText
ActiveWindow.Close
ActiveWorkbook.Close savechanges:=False
'フォームに転記した情報をクリア
ws2.Select
Range(Cells(4, 1), Cells(44, 19)).Select
Selection.ClearContents
End If
m = m + 1
Loop
ws1.Select
MsgBox MESSAGE_FINISH
End Sub

No.2ベストアンサー
- 回答日時:
No1の方が指摘されているように、
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & ws2.Cells(s, 5).Value & ".txt", FileFormat:=xlText
のときの、 ws2.Cells(s, 5).Valueの値が不正な可能性があります。
この行の直前で、
msgbox("<" & ws2.Cells(s, 5).Value & ">")
を行い、ws2.Cells(s, 5).Valueの内容を確認しては、いかがでしょうか。
ありがとうございます
ご指摘の通りmsgboxで中身を見たら「空っぽ」でした
なので下記のように変更したらエラーでなくなりました
こういうデバッグというかエラーつぶしの作業経験が少なく
msgboxを使うデバッグを思い出し、重要性に気づきました。
ありがとうございました。
<<変更後>>
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & ws3.Cells(4, 8).Value & ".txt", FileFormat:=xlText
No.1
- 回答日時:
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & _
ws2.Cells(s, 5).Value & ".txt", FileFormat:=xlText
ActiveWorkbook とは、ここでは、ws2.Copy で切り離されたシートのことだと思います。ファイル名として、ws2.Cells(s, 5).Value を一旦、変数に置き換えずに、そのまま、保存に使うのはちょっと無謀かなって思います。
s は、カウンター変数で、ループの最後、 s = s + 1 となって、どこでもない所かもしれません。定数なりで決める必要があります。
一度、ws2.Cells(s, 5).Value の中身を確認すべきでしょうね。
そして、ファイル名の付け方には、もう少し工夫が必要だと思います。
ありがとうございます
ご指摘の通り、無謀だったようです
別マクロで似たような感じで保存名で使った事があり
安心しきっていましたが、ws2の状態では空データの
ようで、それが原因でエラーになっていたようです。
変数にはしなかったのですがws3の情報を指定して
保存することが出来ました。
ありがとうございました。
<<変更後>>
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & ws3.Cells(4, 8).Value & ".txt", FileFormat:=xlText
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
Excel ファイルに保存すると実行時エラーになる
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
5
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
8
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
9
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
10
SaveAsの保存先について
Visual Basic(VBA)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
Access サブフォームでの選択行の取得
その他(データベース)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
[Excel] ファイル名を変数指定して保存するマクロ
Excel(エクセル)
-
15
UserForm1.Showでエラーになります。
工学
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
19
SaveAsエラー回避
Excel(エクセル)
-
20
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
100万件越えCSVから条件を満た...
-
VBA別シートの最終行の次行へ転...
-
EXCELのSheet番号って変更でき...
-
VBA 実行時エラー1004 rangeメ...
-
VBA 別ブックからの転記の高速...
-
VBA 空白行に転記する
-
【VBA】特定の条件でセルをコピー
-
楽天RSSからエクセルVBAを使用...
-
エクセル 複数シートの同一セ...
-
ExcelのVBマクロを、バックグラ...
-
テキストボックスから、複数の...
-
Excel VBAで、散布図のデータ範...
-
VBA シート間の転記で、条件の...
-
Count Ifのセルの範囲指定に変...
-
複数シートの複数列に入力され...
-
別シートから年齢別の件数をカ...
-
VBAで変数の数/変数名を動的に...
-
Excel VBA オートフィルターで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
100万件越えCSVから条件を満た...
-
【VBA】特定の条件でセルをコピー
-
VBA 別ブックからの転記の高速...
-
VBA 実行時エラー1004 rangeメ...
-
VBAで変数の数/変数名を動的に...
-
Excel2013で切り取り禁止
-
楽天RSSからエクセルVBAを使用...
-
GASでチェックボックスを一括of...
-
祝日を除いた月曜から土曜まで...
-
Unionでの他のシートの参照につ...
-
検索して修正したデータの上書転記
-
テキストボックスから、複数の...
-
Excel VBA オートフィルターで...
-
グラフマクロで系列を変数にす...
-
アクセスからエクセルへ出力時...
おすすめ情報