タイトル : Re: エクセルのプロセス(シート名変更)終了できない 投稿日 : 2015/12/08(Tue) 21:25 投稿者 : 花ちゃん
> Dim oExcel As Object = CreateObject("Excel.Application") > oExcel.Visible = True > Dim oBooks As Object = oExcel.Workbooks > XlsFileName = GetAppPath() & "\EXCEL\SHYOSI.xls" > Dim oBook As Object = oBooks.open(XlsFileName) > Dim oSheets As Object = oBook.Worksheets > Dim oSheet As Object = oSheets.Item(1) 'Sheet1 > oSheets("HYOSI").Select() > oSheets("HYOSI").Copy(after:=oBook.sheets(1)) > 'GoTo label1 ここまではうまくいく そもそも oSheets.Item(1) と oSheets("HYOSI") は別のシートですか? 別のシートなら Dim oSheet1 As Object = oSheets("HYOSI") のようにして使用しないと oSheets("HYOSI").Copy(after:=oBook.sheets(1)) oBook.sheets(1) これもおかしいのでは? oSheet の事じゃないのですか 又、.Copy を使った場合参照カウントが余分に増えるようです。 > oSheets("HYOSI (2)").Select() > oSheets("HYOSI (2)").Name = kanri_no.Value kanri_no.Value は数値 ですか? 文字ですか? ご自分で問題点が解らないようなら、いきなり参照設定なしのコードで作成せず 参照設定して動作確認したコードを書き換えるようにして下さい |