2016-08-01 10 views
0

プログラムと同じフォルダー内の他のすべてのファイルにアクセスしようとしていますが、私はそれが基本的には私がそれを行うと言っているが、私はまだVBAに新しいと私が欲しいものを達成するための構文を知らない。プログラムから現在のフォルダの場所を取得し、そのフォルダ内のすべてのファイルだけを通過させる方法はありますか?同じフォルダー内の他のファイルにアクセスしようとしましたが、フォルダー外のファイルを取得しています

また、私はScripting.Objectを使用しないソリューションが必要です。そのためにダウンロードする必要がある問題が発生しています。このツールを使用する人にはあまりにも多くのダウンロードが必要になります特に

directory = ActiveWorkbook.Path 'Also tried CurDir() 
fileName = Dir(directory & "*.xl??") 
Do While fileName <> "" 
    ... 
    fileName = Dir() 
Loop 
+0

Scripting.FileSystemObjectはWINDOWSスクリプトですので、何もダウンロードする必要はありません。あなたが2000年のVBSを知っているにもかかわらず、VBSは非常に厄介なワームを持っています。https://en.wikipedia.org/wiki/ILOVEYOU ---とにかく、あなたがプログラムを安全にしたいならあなたはミルのことを言及しました)あなたは本当にVSTOを使ってExcelのアドインを開発し、VBAコードを書くべきではありません。しかし、あなたはVBAの初心者であり、プログラミングの可能性もありますので、疑問の余地はありません! –

+0

@CodyG。私がプログラミングしているこの特別なことは、秘密のものは一切扱っていませんが、管理上/組織上のものだけですが、セキュリティで保護されたコンピュータで使用されます。私は前に記事を作って、それが私にエラーを与えたと示唆されたとき、私はそれらの参考文献をインストールする必要があると指示されたことに私は尋ねられました。 – WalterC

+0

"参考資料をインストールする"というのは、少し誤解されています。これは一般にPC上のファイルへの参照です。 –

答えて

0

ThisWorkbook.Path 
MsgBox ThisWorkbook.Path ' Make sure its the right path... 

Filename = Dir(directory & "\" & "*.xl??") 
試してみてください(コンピュータを.COMとは対照的に)彼らは安全な.MILコンピュータ上だろうから
+0

昼食から戻るときに試してみます – WalterC

+0

それでも私には同じ問題があります。それは私の出発場所ですか?毎回最初に試したファイルはフォルダの外側にあるので、内部のファイルと一緒に動作することはわかりません。 – WalterC

+0

@WalterC私はPCでテストしたとき、どうやってそれがうまくいかなかったのか、かなり混乱しました。私が考えることができる唯一の他の事は、ActiveWorkbookの代わりにThisWorkbookを使用することです。 –

関連する問題