
下記のエラーが出ます、似たようなもので新規ファイルで保存できたのですが
今回は出来ない状態になってしまいました。
ちょこちょこマクロ使うのですが、初心者で解決できません。
マクロ先生のご指導をお願いします。
※コピーされたシートが新ファイルで開かれた状態でエラー表示となります。
「実行時エラー '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も見ています
-
電子書籍プレゼントキャンペーン!
最大2万円超分当たる!マンガや小説が読める電子書籍サービス『Renta!』で利用できるギフトコードプレゼント実施中!
-
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
Excel ファイルに保存すると実行時エラーになる
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
7
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
8
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
9
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
10
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
11
VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー
Excel(エクセル)
-
12
UserForm1.Showでエラーになります。
工学
-
13
[Excel] ファイル名を変数指定して保存するマクロ
Excel(エクセル)
-
14
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
15
SaveAsの保存先について
Visual Basic(VBA)
-
16
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
17
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
18
エクセルVBAでパスの¥マークについて
Access(アクセス)
-
19
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
20
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
マクロの「SaveAs」でエラーが...
-
5
VBAを使って複数のシートから抽...
-
6
マクロ実行後に別シートの残像...
-
7
テキストボックスから、複数の...
-
8
EXCEL VBA 転記 条件分岐 新...
-
9
楽天RSSからエクセルVBAを使用...
-
10
VBA オートフィルター繰り返し
-
11
VBAでEXCELから固定長...
-
12
VBA シリアル値から月日への変換
-
13
Unionでの他のシートの参照につ...
-
14
グラフマクロで系列を変数にす...
-
15
vba 連続するとうまく作動せず
-
16
Excelのシート別でのセルのリン...
-
17
EXCELのSheet番号って変更でき...
-
18
検索して修正したデータの上書転記
-
19
Excelで横書き50行の漢字テス...
-
20
Worksheet_Change
おすすめ情報
公式facebook
公式twitter