VBA初心者です。
仕事で急遽EXCEL2000のVBAを使わなくてはならなくなり、本を買って急いで勉強しましたがうまくいきません。
もう日数もなく困っています、どなたかお教え下さい。
VBAでやりたいこと
1.まずTEST.xls上でボタンをつくり、それをクリックすると、TEST.xlsと同じディレクトリに20061119という(ボタンをクリックした日付)フォルダが作成される。
2.そのフォルダの中に、test1.sqlと、test2.sqlいうテキストファイルが作成される。
3.sqlテキストファイルの中身には、どちらも
123(abc/def) 456(ghi/jkl)
という内容が書き込まれる。
今のところ散々頑張って、日付名ではないフォルダの中にカラのsqlテキストデータを作るまでしか出来ず困っています(-_-;)
どうかよろしくお願いします。
No.4ベストアンサー
- 回答日時:
こんばんは。
こんな感じかしら?
'-----------------------------------------------
Sub MakeFolderDate()
Dim myDate As String
Dim myPath As String
Dim NewPath As String
Dim FNo As Integer
Dim Ar(1) As String
Dim SqlData As String
Dim i As Integer
'配列に入れる(ワークシートからでもループで入れることは可能)
Ar(0) = "test1.sql"
Ar(1) = "test2.sql"
'データ
SqlData = "123(abc/def) 456(ghi/jkl)"
myDate = Format(Date, "yyyymmdd")
myPath = ThisWorkbook.Path
NewPath = myPath & "\" & myDate
'パスの有無を調べる
If Dir(NewPath, 16) = "" Then 'vbDirectory
MkDir NewPath
End If
For i = 0 To UBound(Ar)
FNo = FreeFile()
Open NewPath & "\" & Ar(i) For Output As #FNo
Print #FNo, SqlData
Close #FNo
Next i
End Sub
'-----------------------------------------------
こんばんは!
丁寧な回答どうもありがとうございました!
私の作った幼稚なVBAと文面が全然違ったのでビックリしました。
この通りに打ち込んでみたら、キチンと完璧な物が出来ました!
本当に助かりました。ありがとうございます。
No.3
- 回答日時:
回答どうもありがとうございます!
教えていただいたサイト、とても丁寧に説明がされていて参考になりました。
どうもありがとうございました!
No.1
- 回答日時:
本日の日付は
Date
で取得できます。
それを
Fromat関数で変換します。
関数の
Text
と同じ働きです。
Format(Date,"yyyymmdd")
で
20061119
というような文字列を取得できます。
これを
パスと繋げて
MkDir(パス & Format(Date,"yyyymmdd"))
というようにしてフォルダを作成します。
フォルダを作成したら、
新しいフォルダのパス & "\" & テキストファイル名 & ".txt"
でテキストを保存しましょう。
回答どうもありがとうございました!!
昨日は試行錯誤して『date』や『yyyymmdd』なんてフォルダを沢山作ってしまいましたが、教えていただいた関数で上手く出来ました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) Excel VBA でデータ転記について 1 2023/03/07 19:11
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA一覧取得 再投稿
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
EXCEL(VBA)で指定フォルダ内の...
-
VBAでパワーシェルを実行したい...
-
パスワード保護されたExcelファ...
-
初心者powershellのPS1ファイル...
-
Eclipse
-
ExcelVBAの使い方 ¥の使い方...
-
Windows PowerShellでscoopコマ...
-
【続き】windowsペイントを開く...
-
VB.NETでのiniファイル読込につ...
-
開いているファイルを削除し、...
-
秀丸マクロ ファイルのパス取得...
-
SaveAsの保存先について
-
ブラウザからファイルパスを取...
-
アプリケーションのインストー...
-
ExcelのVBAで上書き保存を確...
-
カレントディレクトリ配下のフ...
-
エクセルのマクロで特定フォル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
VBAでパワーシェルを実行したい...
-
VBA一覧取得 再投稿
-
【VB.NET】App.configにファイ...
-
初心者powershellのPS1ファイル...
-
エクセルVBAで一つ上の階層...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
SaveAsの保存先について
-
Excel 相対パス
-
パスワード保護されたExcelファ...
-
【VBA】ExcelマクロでCSVファイ...
-
xcopyコマンドの進行状況を表示...
-
エクセルのマクロで特定フォル...
-
VBA★PDFをPDFアプリで印刷し...
-
VBS パスに変数を入れたい
-
コマンドプロンプトのコピー関...
-
【VBA】複数のtxtファイルから...
-
指定したフォルダ内の最新ファ...
おすすめ情報