|
▼kein さん:
本当に申し訳ございません。私はこのようにファイルを開いています。
この中にどのようにしたらフォルダの更新日時の最新のファイルが開きますでしょうか?
なにとぞよろしくお願いします。
Dim DataFileName As String
Dim Path As String
Dim ext_Name As String
Dim OpenFileName As String
Dim Process_Name As String
Dim Name As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim RowsCount As Integer
DataFileName = "倉庫管理.xls"
'データファイル = "C:\My Documents\*.f01"
Path = "C:\My Documents"
ext_Name = "\*.f01"
OpenFileName = Dir(Path & ext_Name)
'データファイルを開き、コピーする
Workbooks.Open FileName:=Path & "\" & OpenFileName
Cells.Select
Selection.Copy
'ストックファイルの "sheet1" に貼り付ける
Windows(DataFileName).Activate
Sheets("sheet1").Select
Cells.Select
ActiveSheet.Paste
>>データを抽出している
>の処理が分からないので、いちおう C:\My Documents で、最新のテキストの名前と
>更新日時を取得するコードを書いておきます。
>
>Sub MyNewText()
> Dim x As Integer
>
> With Application.FileSearch
> .NewSearch
> .LookIn = "C:\My Documents"
> .filename = "*.txt"
> .LastModified = msoLastModifiedAnyTime
> .FileType = msoFileTypeAllFiles
> If .Execute() > 0 Then
> x = .FoundFiles.Count
> MsgBox .FoundFiles(x) & _
> vbLf & "更新日時 = " & _
> FileDateTime(.FoundFiles(x))
> End If
> End With
>End Sub
|
|