[ツリー表示へ] [ワード検索] [Home]
タイトル ： 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 は数値 ですか？ 文字ですか？ ご自分で問題点が解らないようなら、いきなり参照設定なしのコードで作成せず 参照設定して動作確認したコードを書き換えるようにして下さい |
をクリックするとツリー全体を一括表示します） - エクセルのプロセス（シート名変更）終了できない - SUZUKI 15/12/08-14:33No.11536