Excel2010のVBAで起動時に連続番号を表示

質問

数年前にVBAで質問させていただきました。
ずっとwindowsXP　SP3を使用していたのですが（Excel2002　SP3もそのまま）
今回急遽社内のパソコンが2台（1台は自分のです）だけWindows7に変わりました。

その2台だけExcelも2002から2010に変わったのですが、使用しているファイルで記述してる
FileSearchが使えないとあとから知りました。（泣）
ネットで検索してFileSystemObjectを代わりに使用するというのを知りましたが
初心者の為理解が難しく・・・。
申し訳ありませんが記述の変更方法を教えていただけないでしょうか？

（１）フォルダーは　”C:\指示\記入済”　に出来たExcelファイルを保存してます
（２）番号は指定フォルダ内のエクセルファイルをカウントしてその数＋1を
　　U1のセルに表示させています。

**************現在使用中データ**************

Public Const FPath = "C:\指示\記入済"
'xlsファイル検索
Sub Auto_Open()
With Application.FileSearch
.NewSearch
.Filename = "*.xls"
.FileType = msoFileTypeAllFiles
.LookIn = FPath
.SearchSubFolders = False
.Execute

Cells(1, 21).Value = .FoundFiles.Count + 1
Cells(1, 21).NumberFormat = "0000"
End With
End Sub

********************************************

上記がExcel2002で問題なく動いている記述です。
大変申し訳ありませんが、宜しくお願いします。

回答No.3

MSZ006 · ベストアンサー

#1です。

すみません。エラーの箇所は
tmp = Dir()
に修正してください。

お礼

tmp = Dir()
にしたら無事数字が動くようになりました!ありがとうございます＞＜

補足

ありがとうございます！
無事連番が表示されるようになりました！

ただ、私の情報不足が原因かもしれませんが
他でエラーが＞＜（ファイル保存するときにもVBAをつかっていたのです）

こちらに書くよりもしっかりと質問をこれから再度書きます＞＜すみません。。

回答No.2

WindFaller

こんにちは。

すでに回答が出ていますが、同じ方法で作られています。
内容的には、わざわざ、FileSystemObject を使うほどのものではありません。

>.SearchSubFolders = False

ということなら、そんなに難しく考えなくてよいです。
ただ、以下は、セルにファイル名を出すことも考えているので、余計なら取り去ってください。
それと、FileSearch のファイル検索では、拡張子が、"xls" も"xlsx" も同等として扱ってしまうような記憶があります。同じ挙動にするなら、「And StrComp(Right(fName, 3), "xls", 1) = 0 」は不要です。
また、Auto_Openで、シートを指定していないのは、ちょっと問題アリかなと思います。

'//
Const FPATH = "C:\指示\記入済"
Sub TestMacro1()
　Dim fName As String
　Dim cnt As Long
　'Dim i As Long
　fName = Dir(FPATH & "*.xls")
　Do While fName <> ""
　　If fName <> "." And fName <> ".." Then
　　　If (GetAttr(FPATH & fName) And vbDirectory) = vbNormal _
　　　　And StrComp(Right(fName, 3), "xls", 1) = 0 Then
　　　　'i = i + 1
　　　　'Cells(i, 1).Value = fName　'←ファイル名を出力する場合
　　　　cnt = cnt + 1
　　　End If
　　End If
　　fName = Dir
　Loop
　Cells(1, 21).Value = cnt
　Cells(1, 21).NumberFormat = "0000"
End Sub
'//

お礼

やってみたらエラーは出ないのですが
数字が変わらずでした＞＜

後からわかったのですがもしかしたら
他のモジュールで書いてあるのも関連してるかもしれないので
再度質問を書かせていただきました＞＜お手数かけて申し訳ありません。
もしよければ
http://okwave.jp/qa/q8343109.html

こちらにファイルで使っているモジュールを全部乗せてみましたので
宜しくお願いします＞＜

回答No.1

MSZ006

Dir関数を用いて、こんな感じでどうでしょうか。
-----

Public Const FPath = "C:\指示\記入済"
'xlsファイル検索
Sub Auto_Open()
Dim tmp as String
Dim i as Long

tmp = Dir(FPath & "¥*.xls")

Do While tmp <> ""
i = i + 1
Dir()
Loop

Cells(1, 21).Value = i+1
Cells(1, 21).NumberFormat = "0000"

End Sub

補足

回答ありがとうございます。
早速やってみましたら
コンパイルエラー:
構文エラー
がでてDir()の部分が選択されていました＞＜；

OKと押したら
Sub Auto_Open()の行が黄色くなってました；；