ファイル取り込み - 中田ゼミ
ection.Count).Row ‘マウスで選択された部分の一番下 ファイル名を変数で指定するSet DataSheet = ActiveSheet ‘現在のファイルをDataSheetと呼ぶことにするDataSheet.Activate ‘
ection.Count).Row ‘マウスで選択された部分の一番下 ファイル名を変数で指定するSet DataSheet = ActiveSheet ‘現在のファイルをDataSheetと呼ぶことにするDataSheet.Activate ‘
i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.保護解除 Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1
3, 3) = data(a) 3saNext aEnd Sub《 ファイルの新規保存について 》ファイルに名前をつけて保存をする場合は、ActiveSheet.Copyというコードを使用します。Sub Copy()Dim NameActiveSheet.Copy '新しいブッ
i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.保護解除 Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1
(a + 3, 3) = data(a)Next aEnd Sub《 ファイルの新規保存について 》ファイルに名前をつけて保存をする場合は、ActiveSheet.Copyというコードを使用します。Sub Copy()Dim NameActiveSheet.Copy '新
つ 1秒未満 MyFile = "text;" & "C:\data.csv" With ActiveSheet.QueryTables.Add(Connection:=MyFile, ・・・ .Name = "li