Excel VBA質問箱 IV

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

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


9741 / 13644 ツリー ←次へ | 前へ→

【25672】作成したファイルのマクロの消去について グリーン 05/6/10(金) 13:54 質問[未読]
【25675】Re:作成したファイルのマクロの消去について Kein 05/6/10(金) 15:41 発言[未読]
【25701】Re:作成したファイルのマクロの消去につ... じぇっと 05/6/11(土) 2:52 発言[未読]
【25704】Re:作成したファイルのマクロの消去について Nossori 05/6/11(土) 8:53 回答[未読]

【25672】作成したファイルのマクロの消去について
質問  グリーン  - 05/6/10(金) 13:54 -

引用なし
パスワード
   はじめまして。

現在WEBクエリを使用し、DBより取得した値をエクセルに書き込む
マクロを作成していて、値の取得などは問題なくできたのですが、
ボタンを押して「名前をつけて保存」ダイアログを表示・保存を行うと、作成後の
ファイルにもマクロが同様に含まれてしまいます。
値の書き込まれた普通のエクセルファイルとしてファイルを作成したいのですが、
これは仕様なのでどうしようもないのでしょうか?
何かほかにいい方法などあるのでしょうか?

ファイルの保存部分は以下のようになっています。

Application.Dialogs(xlDialogSaveAs).Show (ファイル名)

よろしくお願いします。

【25675】Re:作成したファイルのマクロの消去につ...
発言  Kein  - 05/6/10(金) 15:41 -

引用なし
パスワード
   データの保存のみが目的なら、CSVファイルにするとかMDBファイルにするなどが
定石と言えるでしょう。

【25701】Re:作成したファイルのマクロの消去につ...
発言  じぇっと  - 05/6/11(土) 2:52 -

引用なし
パスワード
   単純ですが、こんな方法もあります。

Sheet1.Copy
ActiveWorkbook.SaveAs Filename:="C:\Book2.xls"

【25704】Re:作成したファイルのマクロの消去につ...
回答  Nossori  - 05/6/11(土) 8:53 -

引用なし
パスワード
   ▼グリーン さん:

こんにちは
私もこの質問をしたのですが、回答を頂きまして
感激した経験があります。
URLを添付します。
シート単位、ブック単位・・・等4種類が掲載された
いたと思います。
http://excelfactory.cool.ne.jp/ExcelVBATips/vbe/vbe_index.html
一度色々と試してみてください。

私は以下のコードを利用してデータ保存に「ひにち」をつけて
ファイルを作成しています。
'キーワード>>VBProject・VBComponents・CodeModule・DeleteLines 1・Remove
'
'Point: 全てのマクロを削除したはずなのにマクロの警告が出てしまう。
'
'   'ThisWorkbookの全てのマクロを消去・モジュールを削除します。
Sub Test()
Dim myVBComp
  For Each myVBComp In ThisWorkbook.VBProject.VBComponents
   If myVBComp.Type = 100 Then
   'Documentモジュール(ThisWorkbookやSheet)なら消去
    With myVBComp.CodeModule
      .DeleteLines 1, .CountOfLines
    End With
   Else
 'Documentモジュール(標準モージュール、クラスモジュール、Formなど)以外なら削除
     Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
  End If
 Next myVBComp
End Sub'

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