２３歳OLです。
会社でマクロを組むことになったのですが、
どうしてもわからないところがあったので質問させていただきます。
ご回答いただけると嬉しいです。。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
▼問題点
問題(1)
Line input にしているのですが、
一行ずつ入力されず、読み込んだファイルが一つのセルの中にすべて入ってしまいます。
問題(2)
複数ファイルを１、２、３、と読み込んだ際A列,B列,C列と違う列に
入って行ってほしいのですが現在同じ列に入ってしまいます。
どうやったら改善できるのでしょうか？
以上です。
よろしくお願いします。
※読み込みたいファイルはlogファイルとvファイルです。※
＝＝＝＝＝＝＝＝＝＝該当マクロ＝＝＝＝＝＝＝＝＝＝＝＝＝＝
■VBAコード
Sub ReadMultiFiles()
' [[ 変数定義 ]]
Dim varFileName As Variant
Dim VWorkSheet As Worksheet
Dim NewWorkSheet As Worksheet
Dim SheetName As String
Dim Filename As Variant
' [[ ファイルパスからファイル名を取得 ]]
SheetName = Dir(ThisWorkbook.FullName)
' [[ ファイル名で新しいシート作成 ]]
Set NewWorkSheet = CreateWorkSheet(SheetName)
' [[ 複数ファイルパス名を取得 ]]
varFileName = Application.GetOpenFilename(FileFilter:="(*.*),*.*", _
Title:="CSVファイルの選択", MultiSelect:=True)
' [[ ファイルパス取得できなかったら ]]
If IsArray(varFileName) = False Then
Exit Sub
End If
' [[ ファイルパス取得できたら ]]
For Each Filename In varFileName
' [[ CSVファイルを開く ]]
Dim buf As String, n As Long
Open Filename For Input As #1
Do Until EOF(1)
Line Input #1, buf
n = n + 1
Cells(n, 1) = buf
Loop
' [[ CSVファイルを閉じる(保存無し) ]]
Close #1
Next Filename
End Sub
' [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
' [[ ]]
' [[ ワークシート名を指定したワークシートの作成 ]]
' [[ ]]
' [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
Function CreateWorkSheet(WorkSheetName As String) As Worksheet
' 変数定義
Dim NewWorkSheet As Worksheet
Dim iCheckSameName As Integer
' ワークシートの作成
' ※一番最後に挿入
Set NewWorkSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
' 同じ名前ワークシートが無いか確認
iCheckSameName = 0
For Each WS In Sheets
If WS.Name = WorkSheetName Then
MsgBox "ワークシート名：" + WorkSheetName + " この名前は既に使われています。"
iCheckSameName = 1
End If
Next
'同じ名前のワークシートがなければ
If iCheckSameName = 0 Then
NewWorkSheet.Name = WorkSheetName
Set CreateWorkSheet = NewWorkSheet
End If
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub test()
Dim i As Integer
Dim StrFormName As String
StrFormName = "UserForm1"
With UserForms.Add(StrFormName).Controls
For i = 0 To .Count - 1
Debug.Print .Item(i).Name
Next
End With
End Sub
これでエクセルのユーザーフォーム上のすべてのコントロール名が取得できるのですが、
コントロールのタイプを取得したい場合、
Debug.Print .Item(i).Name
の部分をどう変えればいいのでしょうか？
例えばコマンドボタンなら、「CommandButton」と返ってきてほしいです。
Debug.Print .Item(i).Controlstype
でも
Debug.Print .Item(i).Controltype
でもエラーになりました。
