A 回答 (6件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
初心者ですが、本やWEBサイトを見ながら作ってみたのですが
これはどうでしょう。
Sub test()
Dim MyFile As String
MyFile = "bonaplus"
Sheets("Sheet5").Copy
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFile, arg2:=6
End Sub
No.3
- 回答日時:
ワークシート画面でメニュー部の余白で右クリックして、ツールバーでコントロールツールボックスをチェックして出す。
金槌とスパナのツールバーアイコンをクリックする。MicrosoftCommonDialogControl,Version 6.0をクリック
する。
シート上にマウスポインタを持っていくと、プラスとなるからそれを左マウスを押しつつ右下へ引きずる。
コモンダイアログのアイコンが現われ出る。
ボタンをシートの上に貼りつけ、ダブルクリックする。
出てきたVBEの画面に
Private Sub CommandButton1_Click()
Sheet1.CommonDialog1.Filename = "bonuplus.csv"
Sheet1.CommonDialog1.Filter = ".csv"
Sheet1.CommonDialog1.ShowSave
End Sub
を貼りつける。
シートに戻り、三角定規と鉛筆のアイコンをクリックし
実行モードにして、ボタンをクリックする。
「名前をつけて保存」のダイアログ画面が出て、ファイル名はbonuplusになっています。
Sheet1.CommonDialog1.Filename = "bonuplus" & "150506" & ".csv"などとするのも、少し入力が楽になるかもしれません。
>金槌とスパナのツールバーアイコンをクリックする。
>MicrosoftCommonDialogControl,Version 6.0を
>クリックする。
>シート上にマウスポインタを持っていくと、
>プラスとなるからそれを左マウスを押しつつ
>右下へ引きずる。
ここまで試してみたところ、「オブジェクトを挿入できません」というエラーメッセージが表示されました。何か設定を変更しなければいけないのでしょうか??
No.4
- 回答日時:
nyworkさんこんばんは。
#1~#2です。動作の確認していただけたでしょうか?
少し改良してみましたのでこちらもご確認いただけたらと思います。
csv形式で保存後自動的にcsvファイルを閉じるようにしました。(WinXP,Excel2002で確認)
この下から-------------------------
Sub test2()
Dim MyFile As String
'MyFileにbonaplusという文字列と本日の日付を入れる
MyFile = "bonaplus" & Format(Date, "yymmdd") '←変更箇所
'Sheet5をコピー
Sheets("Sheet5").Copy
Application.DisplayAlerts = False '追加箇所*1
'MyFileに入れた名前で arg2:=6(この場合csvファイル形式)で保存する
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFile, arg2:=6
ActiveWindow.Close '←追加箇所。csvファイルを閉じる
Application.DisplayAlerts = True '追加箇所*2
End Sub
この上まで-------------------------
'*1,*2 csvファイル形式で保存する際に出るメッセージ(「このブックはカンマ区切りと互換性のないメッセージが含まれているおそれがある」云々)というのを出すのを抑制します。*1,*2セットで使ってください。メッセージを出したい場合はこの部分を省いてください。
マクロの登録の仕方はごぞんじですよね?
(念のためご説明します)
1 ALT + F11でVisualBasicエディタを起動。
2 プロジェクトエクスプローラ(通常、左側にあるツリー)のVBAProject(マクロをどのファイルに対してもつかいたいのならばpersonal.xlsのところ、そうでなければ今回お使いになるファイルのところ)を右クリック。挿入 > 標準モジュール をクリックして開き、右側のコードウィンドウに上のコードをコピーして貼り付けて、visual basicエディタを閉じます。
実行したい場合は、エクセルに戻って ツール > マクロ > マクロ で場合によってはマクロの保存先を選んで目的のマクロを出して実行するか、フォーム(表示 > ツール > フォーム)のボタンをシート上に配置してそこに登録したり、新規にボタンをつくって既存のツールバーに組み込んで使います。
この回答への補足
度々のご回答ありがとうございます。
以下のように書き換えたところ、
csvファイルは指定のフォルダ(c:\test)を
表示してくれるのですが、
xlsファイルはマクロ実行したファイルが
あるフォルダを指定しまい、(c:\test)を
表示してくれません。
どうも間に
ActiveWindow.Close
を追加したことが原因らしいのですが。。
csvファイルとxlsファイルを同じフォルダを
指定するにはどのように記述したらよいのでしょう??
あれこれ調べてはみたもののどうも分かりません。
またお力をお貸しください。。
***********************
Sub test2()
Dim MyFileA As String
Dim MyFileB As String
MyFileA = "c:\test\bonaplus" & Format(Date, "yymmdd")
MyFileB = "c:\test\bonaplus" & Format(Date, "yymmdd")
Sheets(1).Copy
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=6
ActiveWindow.Close’←原因??
Application.DisplayAlerts = True
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileB, arg2:=1
Application.DisplayAlerts = True
Application.Quit
End Sub
お礼が遅くなりました。ごめんなさい。
おかげでできあがりました♪
この後にエクセルを閉じたいのですが、
Activeworkbook.close
だと、ブックは閉じるてくれるのですが、
エクセルそのものが残ってしまいます。
エクセル自体も閉じるにはどのように記述したら
よいでしょうか?
No.5
- 回答日時:
#3のものです。
参照設定するためのMicrosoftCommonDialogControl,Version 6.0
は出てきたでしょうか。
私の場合はエクセルから入ったかVBからかアクセスからかはいったか、現在は入っていますが。
これがあってこれをクリックすると、ワークシートに貼りつけられるはずなんですが。
ツール-マクロ-VBEでVBE画面になり、ツール-参照設定-MicrosoftCommonDialogControl,Version 6.0
をクリック。
ワークシートの画面に戻りセルにマウスポインタを置くと
+になるはず。
左マウスを押しつつ、少し右下へ引きずる。
コモンダイアログのアイコンがシート上に現われ出る。
もう一度だけやって見てください。
CommonDialogでWEB照会すると沢山出ますので、勉強と思っていくつかを見てみてください。
ご回答ありがとうございました。
やはり以下の
>ツール-マクロ-VBEでVBE画面になり、
>ツール-参照設定-
>MicrosoftCommonDialogControl,Version 6.0
>をクリック。
がありませんでした。(しつこく探したのですが。)
インストールの際チェックがもれたのでしょうか?
原因はわかりませんが、もう少し調べてみて、
設定が可能な状態になりましたら、
回答を頂いたとおりに試してみるつもりです。
ありがとうございました。
No.6
- 回答日時:
#4のtbobiです。
うまくいって何よりです(^^)
>エクセル自体も閉じるにはどのように記述したら
よいでしょうか?
Application.Quit
と書けばエクセルを終了できます。実際確認しました。
ちなみに参考にしたのはこちらのページです。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv251.htm …
参考URL:http://www.asahi-net.or.jp/~zn3y-ngi/YNxv251.htm …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Excel(エクセル) Excelについて。 Excelからcsv変換したいのですが、 やり方はファイル→名前をつけて保存→ 7 2022/07/27 01:10
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
Wordで差込印刷した後に別々の...
-
Excel csv保存 列数が異なる場...
-
PowerPoint 2002でファイル名を...
-
サブフォルダから部分一致のエ...
-
マクロ実行後、表示がおかしくなる
-
エクセルでcsvファイルを開いて...
-
複数のexcelのファイルを一括で...
-
エクセルファイル名に更新日時...
-
エクセル UserForm 呼び出しで...
-
実行時エラー52
-
エクセルのマクロで行と列の削...
-
Excel VBA シート挿入 passw...
-
Xlms とはなんでしょうか?
-
エクセルvbaでdocuworksprinter...
-
エクセルで複数のコメントのサ...
-
バッチファイル 二つ上のディ...
-
ファイルサーバ上のファイルが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
Wordで差込印刷した後に別々の...
-
Excel csv保存 列数が異なる場...
-
エクセルファイル名に更新日時...
-
エクセル UserForm 呼び出しで...
-
サブフォルダから部分一致のエ...
-
実行時エラー52
-
エクセルでcsvファイルを開いて...
-
マクロ実行後、表示がおかしくなる
-
VBAでマクロを使って、マクロ無...
-
複数のexcelのファイルを一括で...
-
PowerPoint 2002でファイル名を...
-
エクセルのマクロで行と列の削...
-
大量のCSVファイルをExcel形式...
-
EXCEL 検索時の設定
-
For~Nextルーチンで最初の1回...
-
処理速度にムラがあり過ぎる
-
エクセルで、フィルタかけたま...
おすすめ情報