Excel VBA 質問スレ Part68

Excel VBA 質問スレ Part68at TECH

Excel VBA 質問スレ Part68 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

450:デフォルトの名無しさん 
 20/10/02 01:49:29.59 ChxT/cO/0.net
>>439 
そもそも手順というものを考えた方がいい。 
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？

451:デフォルトの名無しさん 
 20/10/02 10:09:18.16 A7BNHAQE0.net
指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください 
配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。 
Sub Sptyou() 
Dim FolderPath As String, buf As String, TargetDate As String 
'■フォルダを指定する 
With Application.FileDialog(msoFileDialogFolderPicker) 
If .Show = 0 Then 
MsgBox "キャンセルされました。" 
Exit Sub 
End If 
FolderPath = .SelectedItems(1) 
End With 
'■指定されたフォルダ内の全てのCSVファイルを開いて、そのファイルＡ列からＧＨ列を配列に入れていく 
ReDim BiforeArraybar(1, 190) As Variant

452:447 
 20/10/02 10:09:56.74 A7BNHAQE0.net
つづき 
buf = Dir(FolderPath & "*.csv") 
Do While buf <> "" 
Open buf For Input As #1 'インプットモードでファイルを開く 
Line Input #1, TargetDate 
Do Until EOF(1) 'ファイルの終点まで 
Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく 
If Split(TargetDate, ",")(1) = "" Then Exit Do 
'配列に追記する 
ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",") 
Loop 
Close #1 
buf = Dir() 
Loop 
End Sub

次ページ