皆様ありがとうございます。
ちょっと話は変わりますが、もう一つ質問です。
今、以上までのプログラムにプラスしてエクセルにデータを書き込む処理をプログラムしました。
そこで、プログラムを実行すると、エクセルデータを保存する処理のところで
型 'System.Runtime.InteropServices.COMException' の初回例外が Elsim.exe で発生しました
追加情報:'result2.xlsx' は読み取り専用です。アクセスできません。
というエラーが発生してしまいます。読み取り専用で作成していませんし、そのようなパラメータも設定していないはずですが・・・
対処がわかる方教えてほしいです。
以下コード(一部、エラー処理などは全くないです・・・)
class
ElSim
{
static
MainWindow win;
//const int IMAGE_WIDTH = 3508;
//const int IMAGE_HEIGHT = 2480;
const
int IMAGE_WIDTH = 1169;
const
int IMAGE_HEIGHT = 827;
const
double freq = 2.45E+9; //[Hz]
const
double offset = 0; //[rad]
const
double temp = 298.15; //[K]
const
double press = 133.322;//[Pa]=1[Torr]
const
double TrialNum = 1.0E+3;
static
StreamWriter writer = new
StreamWriter("result/result.txt");
static Excel._Application oExcelApp =
new Excel.Application();
static Excel.Workbook oExcelWBook;
static Excel._Worksheet oWSheet;
static
string filename;
public
static void Main(string[] args)
{
Application.Init();
win = new
MainWindow();
win.Show();
Thread thread =
new Thread(new
ThreadStart(Execute));
thread.Start();
Application.Run();
}
public
static void Execute()
{
NPlot.PlotSurface2D s =
new NPlot.PlotSurface2D();
Bitmap b =
new Bitmap(IMAGE_WIDTH, IMAGE_HEIGHT);
Graphics g =
Graphics.FromImage(b);
Rectangle r =
new Rectangle(0, 0, IMAGE_WIDTH, IMAGE_HEIGHT);
//writer = new StreamWriter ( "result/result.txt");
oExcelApp.DisplayAlerts =
false;
oExcelApp.Visible =
false;
filename = System.IO.Directory.GetCurrentDirectory() +
"/result/result2.xlsx";
if (System.IO.File.Exists(filename))
{
win.PutResult(filename +
"\n");
oExcelWBook =
(Excel.Workbook)(oExcelApp.Workbooks.Open(filename));
oWSheet = (Excel.Worksheet)oExcelWBook.ActiveSheet;
}
else
{
win.PutResult("エクセルは存在しません\n");
}
int num = 1;
// 同条件下での試行回数(モンテカルロ法のため)
#if true
// 2次元でのエネルギー変化を記録
World.Record.Initialize ();
World.Initialize (2, freq, offset, temp, press, num);
for (int i = 0; i < TrialNum; i++) {
World.Update ();
win.UpdateProgress (i / TrialNum);
}
World.WriteRecord ();
win.PutResult (World.ToString ());
writer.Write(World.ToString());
WriteExcel(num);//(2);
PlotEnergy (g, b, s, r,
"dim2");
//PlotPosition (g, b, s, r, "dim2");
#endif
writer.Close();
oExcelWBook.Close();
oExcelApp.Quit();
}
public
static void WriteExcel(double num)//(int num)
{
win.PutResult("エクセルに書き込み中・・・");
double length = TrialNum;
for (int i = 0; i < length; i++)
{
//oWSheet.Cells[i + 1, j + 1] = World.Particles[j].Record.CollisEnergy[i];
oWSheet.Cells[i + 1, 1] =
World.Particles[0].Record.Time[i];
oWSheet.Cells[i + 1, 2] =
World.Particles[0].Record.Vx[i];
oWSheet.Cells[i + 1, 3] =
World.Particles[0].Record.Vy[i];
//oWSheet.Cells[i + 1, 4] = World.Particles[0].Record.Vz[i];
oWSheet.Cells[i + 1, 4] =
World.Particles[0].Record.V[i];
}
oExcelWBook.CheckCompatibility =
false;
oExcelWBook.SaveAs(filename);←ここでエラーがでる。
win.PutResult("保存しました。");
}
