下記のマクロで、ファイル指定保存をする時に
"実行時エラー91 オブジェクト変数またはWithブロック変数が設定されていません”がでます。
やりたいのは、選択したセルの1番目をファイル名として
保存をしたいのですが、うまくいきません。
どうしたらよいのでしょうか?
Sub Macro1()
Dim セル As Object
Dim i As Long
i = 1
For Each セル In Selection
Worksheets("Sheet2").Cells(1, i).Value = セル
i = i + 1
Next
ActiveWorkbook.SaveAs Filename:="D:\TEST\" & セル & ".xls"
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
これで如何?
Sub test()
Worksheets("Sheet2").Range("a1").Value = Selection.Cells(1, 1).Value & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\TEST\" & Selection.Cells(1, 1).Value & ".xls"
End Sub
参考まで
No.2
- 回答日時:
すでに回答が出ていますが、
選択範囲中のどこかのセルに文字列があれば
すべて別ファイル名として保存するということなら
こんな感じでしょうか。
Sub Macro1()
Dim セル As Range
Dim i As Long
'i = 1
For Each セル In Selection
If セル.Text = "" Then Exit For
Worksheets("Sheet2").Cells(1, i).Value = セル.Text
ActiveWorkbook.SaveAs Filename:="D:\TEST\" & セル.Text & ".xls"
'i = i + 1
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
VBA にて、条件付き書式で背景...
-
エクセルの合計を自動で表示さ...
-
特定の色のついたセルを削除
-
VBA 複数条件の分岐処理の上手...
-
excelで結合セルの場合にエラー...
-
昨日、質問した件『VBA にて、...
-
VBAでユーザーフォームにセル値...
-
【VBA】【ユーザーフォーム_Lis...
-
VB.netでのExcelデータの読み込み
-
Excel VBA でFunctionプロシジ...
-
VBAの一次元配列から二次元配列へ
-
「Spread」のセルを移動させる...
-
CSVファイルを読み込んだらセル...
-
マクロのコマンドボタンの位置...
-
VBA 特定のセルからoffsetされ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
下記のマクロの説明(意味)を...
-
入力規則のリスト選択
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報