Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50389 / 76738

←次へ　｜　前へ→


	【31238】Re:マクロ内の変数をテキスト形式で保存

Kein - 05/11/15(火) 13:51 -


	引用なし

	パスワード

あー・・つまり私の最初のレスで提示した"Test_Write"プロシージャに対して、
そのようなダイアログを出すように変更したい、ということですね ?
ならば

Sub Test_Write2()
　 Dim A As Integer, B As Integer
　 Dim C As Integer, D As Integer, E As Integer
　 Dim Ary As Variant
　 Dim Buf As String, MyF As String
　
　 ChDir "C:\Documents and Settings\User\My Documents"
　 '↑保存先のパスにする
　 MyF = Application _
　 .GetSaveAsFilename("","テキストファイル(*.txt),*.txt")
　 If MyF = "False" Or MyF = "" Then Exit Sub
　 A = 10: B = 11: C = 12: D = 0: E = -12
　 Ary = Array(A, B, C, D, E)
　 Buf = Join(Ary, ",")
　 Open MyF For OutPut Access Write As #1
　 Print #1, Buf
　 Close #1
　 ChDir Application.DefaultFilePath
　 MsgBox MyF & vbLf & "を作成・保存しました", 64
End Sub

0 hits

▼

【30970】マクロ内の変数をテキスト形式で保存 green 05/11/8(火) 14:57