|
おはようございます。
社内のイントラ上にあるサーバーのCSVファイルから支店の端末にデータを反映させることまではできたのですが、そのCSVファイルの更新日を取得して「データは2009年○月○日分です」と表示したいのです。色々試して過去ログも調べたのですが、どうしてもできません。有効な方法があれば、是非ご教授をお願いいたします。
Sub 実績()
Dim N As Worksheet
Dim KouSinD As Date
Set N = Worksheets.Add
With N.QueryTables.Add(Connection:="TEXT;HTTP://10.100.○.○/フォルダ名/ファイル名.CSV" _
, Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
'インポートまではうまく行くのですが・・・。
KouSinD = FileDateTime("HTTP://10.100.○.○/フォルダ名/ファイル名.CSV")
'ここで実行時エラー'5':「プロシージャの呼び出し、または引数が不正です」と出ます。
MsgBox KouSinD
End Sub
¥¥CSV〜でサーバーのファイルを指定すると、別の支店(セグメント)で動かしたときに最初のデータダウンロードもできない状況です。
なんとかサーバー上にあるCSVファイルの更新日を取得できないものでしょうか?初心者でお恥ずかしい限りですが、よろしくご教授ください。
|
|