excelマクロを用い複数個のファイルを作成する作業を行いたいです。
ファイルの作成そのものは実行できているのですが、その内容に関して
変更したい個所があります。
その変更の仕方がわからないので教えて頂きたいです。
Dim i As Integer
For i = 1 To 100
Workbooks.Add
Range("a1").Value = "[data,text]=xlsread('DS_0frac.xls','ds0_" & i & "')"
Range("a2").Value = "u="
Range("a3").Value = "n=data(u,2)"
Range("a4").Value = "a=data(u+n+1,2);b=data(u+n+1,3);c=data(u+n+1,4)"
Range("a5").Value = "x1=data(u+1,2);y1=data(u+1,3);z1=data(u+1,4)"
Range("a6").Value = "tank=b/a"
ChDir "C:\Documents and Settings\orner\My Documents\DS\m"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\orner\My Documents\DS\m\flds0_" & i & ".m", _
FileFormat:=xlText, CreateBackup:=False
Windows("flds0_" & i & ".m").Close savechanges:=False
Next i
End Sub
上記のようなマクロを実行したところ得られるファイルの内容は以下のようになりました。
"[data,text]=xlsread('DS_0frac.xls','ds0_1')"
u=
"n=data(u,2)"
"a=data(u+n+1,2);b=data(u+n+1,3);c=data(u+n+1,4)"
"x1=data(u+1,2);y1=data(u+1,3);z1=data(u+1,4)"
tank=b/a
実際には1,3,4,5行目の " を省いた形での出力を望んでいます。
マクロ本文中で " を取り除いた場合には
複数エラーが発生し実行できません。
解決法について教えて頂きたいです。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
単純にテキストファイルを作成するのではいかがでしょうか。
ご参考まで。Sub test()
Dim FSO As Object
Dim i As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 1 To 1
With FSO.CreateTextFile("C:\flds0_" & i & ".m")
.WriteLine "[data,text]=xlsread('DS_0frac.xls','ds0_" & i & "')"
.WriteLine "u="
.WriteLine "n=data(u,2)"
.WriteLine "a=data(u+n+1,2);b=data(u+n+1,3);c=data(u+n+1,4)"
.WriteLine "x1=data(u+1,2);y1=data(u+1,3);z1=data(u+1,4)"
.WriteLine "tank=b/a"
.Close
End With
Next i
Set FSO = Nothing
End Sub
参考URL:http://officetanaka.net/excel/vba/filesystemobje …
どうもありがとうございました。
ご回答頂いた内容、添付して頂いたサイトの内容ともにとても参考になりました。
今後活用させて頂きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- その他(プログラミング・Web制作) Python - Excel で Webからデータを連続取得したいのですが エラーが出ます 1 2023/07/06 20:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- C言語・C++・C# pythonのファイルの並びでの読み込みとリストについて 4 2022/04/13 03:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ポインター引数の関数でコンパ...
-
C言語の勉強しています。すみま...
-
c言語での wavファイルの編集(...
-
C言語の勉強しています。すみま...
-
【Excel VBA】10進数を2進数に...
-
平滑化フィルタ
-
結城未来さんの年齢
-
excelマクロを用いてのファイル...
-
c言語の多次元配列で1から100ま...
-
stable diffusionのエラー
-
データの値の近いものをグルー...
-
matlabでのRRI検出
-
H8/36064のAD変換データの文字...
-
ハッシュで重複キーを認める方...
-
基本クラスのポインタから、特...
-
C言語 ファイル内のデータと入...
-
CGIで行き詰まってしまいました。
-
メモリ領域の確保の仕方
-
Perl ファイル一気読み後の正...
-
00月00日00時00分→0000年00月00...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ポインター引数の関数でコンパ...
-
stable diffusionのエラー
-
printfの%eで指数部分の桁数を...
-
【Excel VBA】10進数を2進数に...
-
int型(2バイト)データの分割
-
pythonでDBのカラム名で取得し...
-
エクセルVBA:日付データの変換...
-
C#でのswitch文
-
linuxのシェルでファイル名に先...
-
C言語の構造体にてバブルソート...
-
c言語での wavファイルの編集(...
-
'dataType' 引数を Null にする...
-
H8/36064を使ったシリアル通信...
-
オセロゲーム 2次元配列で困...
-
10個の実数に対する降順ソート...
-
c言語の多次元配列で1から100ま...
-
c言語 配列から数字だけをint型...
-
matlabのソースコードをpython...
-
Cのプログラムがどうしても動き...
-
テキストファイルの結合について
おすすめ情報