２３歳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
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
いつもお世話になっております。
テキストファイル （test.txt）をエクセルマクロにてセルへの読み込みを
したいのですが、なぜか エラーになります。
Cells(n, 1) = buf
でエラーのようです。
理由がわかりません。 教えてもらえないでしょうか
普通の文章なら読み込みできるのですが
＝
を使っているとエラーがでるようです。
test.txtの画像を添付します。
エクセルのマクロの内容は次の通り
Sub テキストファイルをセルに転記()
Dim buf As String, n As Long
Open "C:\Users\a\Desktop\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
n = n + 1
Cells(n, 1) = buf
Loop
Close #1
End Sub
Sub Sample1()
Dim App As Object
Dim MyFileName As String
Set App = CreateObject("Excel.Application")
MyFileName = "C:\Users\test.xlsm"
With App
.Workbooks.Open Filename:=MyFileName
.Visible = True
If .ReadOnly Then
MsgBox "既に開いています"
App.Quit '既に開いているのなら、閉じる
End If
End With
End Sub
このようなコードを作ったのですが、どうやらIf .ReadOnly Thenの部分が間違っているようです。
エラーになります。
既にファイルが開いているか、読み取り専用かどうかを取得するコードをご教授ください。
エクセルシートの印刷範囲を設定するvbaコードで
Sub Macro1()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$c$10"
End With
End Sub
としてるのですが、
"$A$1:$c$10"の部分を
Range(Cells(1, 1), Cells(10,3))
形式でやりたいのですが、
うまくできません。
Sub Macro1()
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(1, 1), Cells(10,3))
End With
End Sub
としても、全部が印刷範囲として選択されてしまいます。
というか、印刷範囲が設定されません。
セルが何行なのかをVBAで取得したいのですが
どういうコードにすればいいですか？
例えば、Ａ１セルに
a
b
c
と入ってる場合、３行ですが
それをVBAで取得するにはどうすればいいですか？
Sub test()
Dim r As Range
Set r = Cells(1, 1)
If r.Value Like "*" & Chr(10) & "*" Then
MsgBox "改行があります"
End If
End Sub
というコードで改行が有ることは取得できたのですが
何行かまでは取得する方法がわかりません。
