|
▼くりぃむ さん:
こんにちは。
考え方として
テーブルA 用のファイル
テーブルB 用のファイル
テーブルC 用のファイル
のテキストファイルを作成して
変更のあった時は各々のテキストファイルを更新
その後で下記を実行
生成されるファイル名は
strFnm = "D:\Table.txt"
になります。
Sub TESTAdd()
' ファイルの結合
Dim WSH As Object
Dim strFnm As String
Dim strFnm1 As String
Dim strFnm2 As String
Dim strFnm3 As String
Dim pID As Long
strFnm = "D:\Table.txt" ' 生成されるファイル
strFnm1 = "D:\TableA.txt" ' Data File 1
strFnm2 = "D:\TableB.txt" ' Data File 2
strFnm3 = "D:\TableC.txt" ' Data File 3
Set WSH = CreateObject("WScript.Shell")
pID = WSH.Run("CMD.Exe /c Copy " & strFnm1 & " + " & _
strFnm2 & " + " & _
strFnm3 & " " & _
strFnm, 0, True)
MsgBox "End"
End Sub
考え方の一つとして下さい。
|
|