|
■かみちゃん さん
早速ありがとうございます。
フルパスという表現、まちがっていてすいませんでした。
もう、必死になってやっているので
頭がまわらなくて・・・
すいませんでした。
どうしてこのような処理をしたいかについてですが、
沢山ある検査データベースの中から、集計表をつくりたいのです。
フォルダが、その検査テスト名になっているので、
そのフォルダ名をセルに書き込みたいと思いました。
Sub t2()
Dim a() As String
Dim I As Long
a = Split("C:\Documents and Settings\AAAA\デスクトップ\元データ1\元データ2", "\")
For I = 0 To UBound(a)
Debug.Print a(I)
Next I
MsgBox a(UBound(a) - 1)
MsgBox a(UBound(a))
End Sub
をやってみたのですが、
開いたファイルとどう関連つければいいのかが
まったくわかりません。
頭が悪くて本当にごめんなさい。
せっかく教えていただいているのに
わからないことばかりで。。。
本当にすいませんが
もう一度おしえていただけますか?
ちなみに
元データ1も2もフォルダ名です。
|
|