Excel VBA質問箱 IV

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

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


37178 / 76732 ←次へ | 前へ→

【44728】Re:新規ブックの処理について
発言  Jaka  - 06/11/30(木) 13:41 -

引用なし
パスワード
   こんな感じにしたらどうでしょうか?

Dim Wb As Workbook
On Error Resume Next
Set Wb = Workbooks.Open("output.xls")
On Error GoTo 0
If Wb Is Nothing Then
  Set Wb = Workbooks.Add
  Wb.SaveAs Filename:="output.xls"
End If
Wb.Sheets(1).Range("a1").Value = 123

最後にセットしたものを解放
Set Wb = Nothing
1 hits

【44727】新規ブックの処理について tomo 06/11/30(木) 11:19 質問
【44728】Re:新規ブックの処理について Jaka 06/11/30(木) 13:41 発言
【44751】Re:新規ブックの処理について tomo 06/11/30(木) 17:12 お礼
【44739】Re:新規ブックの処理について Kein 06/11/30(木) 15:45 回答
【44757】Re:新規ブックの処理について tomo 06/11/30(木) 18:38 質問
【44794】Re:新規ブックの処理について Kein 06/12/1(金) 15:38 発言
【44801】Re:新規ブックの処理について tomo 06/12/1(金) 16:58 お礼

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