いつもお世話になっております。
下記のコードは
"C:\123456\Desktop\新しいフォルダー\"
のフォルダにあるファイルの形式により
A列 xlsm
B列 txt
という感じで振り分けることに
できます。検索などで調べて完成しましたが、
添付ファイルのように
出力すると行がはなれて出力されます。
離れないようにするにはどうしたら
良いのか教えてくれませんでしょぅか
Sub fefa()
Dim FSO As Object, F As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Str As String
Str = "C:\123456\Desktop\新しいフォルダー\"
For Each F In FSO.getfolder(Str).Files
Select Case Mid(F, InStrRev(F, ".") + 1)
Case "xlsm"
i = i + 1
Cells(i, 1) = F.Name
Case "txt"
i = i + 1
Cells(i, 2) = F.Name
End Select
Next
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
考えすぎはよくありませんよ。単純にカウント変数を2つに分け
Case "txt"
n = n + 1
Cells(n, 2) = F.Name
のようにしてみれば、
No.2
- 回答日時:
こんばんは
それぞれの列で、空きセルを作らずに上に詰めたいってことでしょうか?
方法はいろいろ考えられますけれど、ご提示のコードの方法で行うなら・・・
現状は書き込む行を変数 i にして、どちらの列に記入しても +1するようになっているので、ご提示の結果のように各行にはどちらか一つの列にだけ記入されるようになっています。
これを、行カウントの変数をA列用とB列用に分けて別々に用意すれば宜しいのでは?
具体的には(例えば、変数 j をB列用とするなら、B列に記入する際には i はそのままで、j をインクリメントするようにすればよさそうに思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
エクセルVBA テキストに出力、...
-
バッチファイルからVBAに引数を...
-
フォルダ階層のあるzipファイル...
-
バッチ処理でファイルの中身を...
-
.txtではなく.logの方が良いの...
-
ファイルのアクセス権を得る
-
OpenOffice.org...
-
3つ以上のテキストファイルをコ...
-
UWSCでファイルを開く方法
-
多数のサブディレクトリ内のフ...
-
ハードディスク上書き用大容量...
-
テキストファイルクリア .net2...
-
VBSでFTPを記述できますか?
-
COPYコマンドで結合すると余計...
-
エクセルの各セルの内容をそれ...
-
バッチのcopy
-
コマンドプロンプトでファイル...
-
batファイルについて
-
EXCEl/VBAで拡張子なしのファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
.txtではなく.logの方が良いの...
-
VBAでワークシートを引数として...
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
拡張子を元に戻す
-
テキストファイルで提出とは?
-
ファイルの最後に文字列挿入
-
バッチファイル 複数ファイル...
-
バッチファイルで文字列削除に...
-
renameコマンドについて
-
forfilesで検索したファイルを...
-
accessでSQL文を使ってcsvファ...
-
バッチファイルからVBAに引数を...
-
psqlでエラーログをとりたい
-
UWSCでテキストファイルを開い...
-
cshでファイルサイズ取得
-
MS-DOSのバッチファイルの中で...
-
コマンドプロンプトで指定した...
-
テキストファイルのタブをカン...
おすすめ情報