人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAマクロの書き換えをお願いいたします。もしそのまま使える完全な回答をしていただいた最初の回答者の方に、お気持ちですが500ポイント差し上げます。

以下が現行のコードです。エクセル2007でApplication.FileSearchでエラーが発生してしまっています。エクセル2007に対応したコードに書き換えていただけますと幸いです。

Public Function findXlsFile(ByVal pXlFName As String) As String

Dim myFs As FileSearch
Dim i As Long
Dim flgFind As Boolean

Set myFs = Application.FileSearch
With myFs
.NewSearch
.LookIn = pubBookPath
.FileType = msoFileTypeAllFiles
.Filename = pXlFName
.SearchSubFolders = False
If .Execute(SortBy:=msoSortByFileName) > 0 Then
For i = 1 To .FoundFiles.Count
flgFind = refineData(.FoundFiles(i))
Next
Else
findXlsFile = ""
End If
End With
Set myFs = Nothing
End Function

是非お力添えを頂ければと思います。



●質問者: tororosoba
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● kodairabase
●750ポイント ベストアンサー
Public Function findXlsFile(ByVal pXlFName As String) As String
 Dim fname As String
 Dim flgFind As Boolean

 fname = Dir(pubBookPath & "\" & pXlFName)
 Do While fname <> ""
 flgFind = refineData(fname)
 fname = Dir()
 Loop
End Function

tororosobaさんのコメント
korodairabaseさん、迅速なご回答、有難うございました!大変に助かりました!

2 ● きゃづみぃ
●250ポイント

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_130.html

こちらのプログラムを利用されては いかがでしょうか?


tororosobaさんのコメント
アドバイス、ありがとうございました!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ