自分で作成してVBA文(Access)を書き込んであるので見ていただければと思います。
Dim Oshell As Object
Dim Ssql As String, DD As String
Dim Rs As DAO.Recordset
If MsgBox("フォルダを作成しますか?", vbYesNo) = vbNo Then
MsgBox "終了します。"
Exit Sub
End If
DoCmd.SetWarnings False
On Error Resume Next
Ssql = "drop table [file]"
DoCmd.RunSQL Ssql
On Error GoTo Err_File:
Set Oshell = CreateObject("WScript.Shell")
Oshell.Run "cmd /c dir /b C:\Other >> C:\other\file.txt & exit", vbHide, True
Set Oshell = Nothing
DoCmd.TransferText acImportDelim, "File", "File", "C:\other\file.txt"
Ssql = "delete * from [file] where(([File]) = 'file.txt')"
DoCmd.RunSQL Ssql
Ssql = "alter table [file] add column [shop] text"
DoCmd.RunSQL Ssql
Ssql = "update [file] set [shop] = left([file],4)"
DoCmd.RunSQL Ssql
Ssql = "select * from [file]"
Set Rs = CurrentDb.OpenRecordset(Ssql)
While Not Rs.EOF
Set Oshell = CreateObject("WScript.Shell")
Oshell.Run "cmd /c mkdir ""\\C:\" & Rs("shop") & """ & exit", vbHide, True
Set Oshell = Nothing
Rs.MoveNext
Wend
Set Rs = Nothing
MsgBox "終了します"
DoCmd.SetWarnings True
Exit Sub
Err_File:
MsgBox "Err!" & Err.Description
DoCmd.SetWarnings True
End Sub
制作者
17日前
VBAを使用した、ツール(顧客管理ツール、スクレイピング、WMS API等)の作成を請負います。
-
25 件 満足1 件 残念
- ブロンズ
- 個人
- 東京都
Lancersの方で、アプリケーション作成や、ITサポート等の業務をいくつか請け負わせていただいております。
▼可能な業務／スキル
・C#、Python、VBAを使用したアプリケーション作成。
・エクセル等のトレーニング
・PC等のキッティング作業
▼資格
・基本情報処理技術者
▼実績例
・Googleスプレッドシートの自動操作ツール
・配送状況情報の自動取得ツール
・Access、SQL Server、ORACLEを使用したデータ管理ツール
※守秘義務の都合上、記載できない実績もございます。
個別にはお話できるものもございますので、ご興味を持っていただけましたらお気軽にご連絡ください。
▼活動時間／連絡について
できる限り柔軟にご対応させていただきます。急ぎの案件等もお気軽にご相談ください。
連絡は基本的にいつでも可能です。できる限り素早い返信を心がけますが、急ぎの仕事が入っている場合はお時間をいただくこともございます。
ご了承いただければ幸いです。
ご興味持っていただけましたら、メッセージでお気軽にお声がけください。
どうぞ宜しくお願いいたします！