Excel VBA質問箱 IV

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

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


16 / 13057 ツリー ←次へ | 前へ→

【79433】2枚目のシートの特定のセルの値を違うブックの名前に付けて保存する方法 初心者XXXXYYYY 17/10/19(木) 21:07 質問[未読]

【79448】Re:2枚目のシートの特定のセルの値を違う... 初心者XXXXYYYY 17/10/23(月) 19:30 発言[未読]
【79449】Re:2枚目のシートの特定のセルの値を違う... マナ 17/10/23(月) 20:58 発言[未読]
【79457】Re:2枚目のシートの特定のセルの値を違う... 初心者XXXXYYYY 17/10/23(月) 23:14 発言[未読]
【79459】Re:2枚目のシートの特定のセルの値を違う... マナ 17/10/23(月) 23:23 発言[未読]
【79466】Re:2枚目のシートの特定のセルの値を違う... 初心者XXXXYYYY 17/10/24(火) 21:32 発言[未読]
【79467】Re:2枚目のシートの特定のセルの値を違う... 初心者XXXXYYYY 17/10/24(火) 21:38 回答[未読]
【79468】Re:2枚目のシートの特定のセルの値を違う... マナ 17/10/24(火) 21:57 発言[未読]

【79448】Re:2枚目のシートの特定のセルの値を違...
発言  初心者XXXXYYYY  - 17/10/23(月) 19:30 -

引用なし
パスワード
   ▼マナ さん:
>▼初心者XXXXYYYY さん:
>
>>ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx"
>>上の行で進まなくなってしまいます。
>
>エラーですか?
>どんなメッセージですか。

実行時エラー'1004';
アプリケーション定義またはオブジェクト定義のエラーです。

上メッセージが表示されてしまいます。

【79449】Re:2枚目のシートの特定のセルの値を違...
発言  マナ  - 17/10/23(月) 20:58 -

引用なし
パスワード
   ▼初心者XXXXYYYY さん:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx", FileFormat:= xlOpenXMLWorkbook

後ろに

> , FileFormat:= xlOpenXMLWorkbook

を追加するとどうなりますか。

【79457】Re:2枚目のシートの特定のセルの値を違...
発言  初心者XXXXYYYY  - 17/10/23(月) 23:14 -

引用なし
パスワード
   ▼マナ さん:
>▼初心者XXXXYYYY さん:
>
>ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx", FileFormat:= xlOpenXMLWorkbook
>
>後ろに
>
>> , FileFormat:= xlOpenXMLWorkbook
>
>を追加するとどうなりますか。

先ほどと変わらないです。

【79459】Re:2枚目のシートの特定のセルの値を違...
発言  マナ  - 17/10/23(月) 23:23 -

引用なし
パスワード
   ▼初心者XXXXYYYY さん:

1)新規ブックを作成
2)名前を付けて保存

この操作を「マクロの記録」してみてください。
次に、記録されたマクロを実行してみてください。

【79466】Re:2枚目のシートの特定のセルの値を違...
発言  初心者XXXXYYYY  - 17/10/24(火) 21:32 -

引用なし
パスワード
   ▼マナ さん:
>▼初心者XXXXYYYY さん:
>
>1)新規ブックを作成
>2)名前を付けて保存
>
>この操作を「マクロの記録」してみてください。
>次に、記録されたマクロを実行してみてください。

Sub Macro1()
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:="C:\Users\IBM_ADMIN\Documents\Book2.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  ActiveWindow.Close
End Sub

【79467】Re:2枚目のシートの特定のセルの値を違...
回答  初心者XXXXYYYY  - 17/10/24(火) 21:38 -

引用なし
パスワード
   ▼マナ さん:
>▼初心者XXXXYYYY さん:
>
>1)新規ブックを作成
>2)名前を付けて保存
>
>この操作を「マクロの記録」してみてください。
>次に、記録されたマクロを実行してみてください。

この操作を行い、コードを追加してみたのですができません。
ちなみに、シートを指定しない場合はコンパイルエラーが発生せず、実行されます。

一個下のコードではなく、さらにその下のコードの場合。
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(2).Cells(i, 1) & ".xlsx"

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(i, 1) & ".xlsx",

【79468】Re:2枚目のシートの特定のセルの値を違...
発言  マナ  - 17/10/24(火) 21:57 -

引用なし
パスワード
   ▼初心者XXXXYYYY さん:


>>1)新規ブックを作成
>>2)名前を付けて保存
>>
>>この操作を「マクロの記録」してみてください。
>>次に、記録されたマクロを実行してみてください。

記録されたマクロを実行することはできましたか?


>この操作を行い、コードを追加してみたのですができません。
>ちなみに、シートを指定しない場合はコンパイルエラーが発生せず、実行されます。

実行時エラーじゃなかったのですか?

16 / 13057 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free