Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32247 / 76734

←次へ　｜　前へ→


	【49726】Re:フォルダ配下のファイルからデータを転記したいのですが・・・

momo - 07/6/18(月) 22:44 -


	引用なし

	パスワード

▼ウッシさん：
こんばんは。
ご丁寧にありがとうございます。
また返事が遅れたこと、お詫び致します。

もうひとつだけ質問させてください。
タイトルと違うので非常に恐縮なのですが
別に質問するとわからなくなってしまうので
ここに書きました。

With Worksheets(s).Cells(65536, 1).End(xlUp)
　　　　.Offset(1).Formula = sFile & "R1C1"
　　　　.Offset(1).Value = .Offset(1).Value
End With

の部分なのですが

.Offset(1).Formula =sFile & "R" & cells(65536,1).End(xlup).Row & "C1"
で最終行をとるように書きなおしてみました。（すみません。）
"R1C1"の書き方ではセル値だけできちんと千葉県の生徒の氏名がとられてくるのに
最終行のセル値を指定する方法では管理.xlsの最終行をとってくるのでしょうか？

For i = 1 To .FoundFiles.Count
s = fso.GetFile(.FoundFiles(i)).ParentFolder.Name
If s = "千葉県" Then

sFile = fso.GetParentFolderName(.FoundFiles(i))
sFile = "='" & sFile & "\[" & Dir(.FoundFiles(i)) & _
　　　　　　　　　　　　　"]情報'!"
s = fso.GetFile(.FoundFiles(i)).ParentFolder.Name
　　

このあたりがまだ理解できていないのが原因だと思います。
少し解説をお願いしてよろしいでしょうか？

sはxlsファイルの上の千葉県とかのフォルダ名をとっているんですよね？
sFileのGetParentFolderNameも千葉県とかのフォルダですか？？
1_1とかのフォルダはどこで指定？されているのでしょうか？

お手数をおかけします。
よろしくお願いいたします。

5 hits

▼

【49625】フォルダ配下のファイルからデータを転記したいのですが・・・ momo 07/6/13(水) 21:26