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