tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルのプロセス(シート名変更)終了できない
投稿日: 2015/12/08(Tue) 14:33
投稿者SUZUKI
vb6.0からvb2005移行に挑戦しています
掲示板等を読んでいるのですがどうしても解決できずよろしくお願いします
HYOSIというシートがありコピーしてシート名を変えたいと思っています
OS WINDOWS7 EXCEL2003 です
      oSheets("HYOSI (2)").Select()
      oSheets("HYOSI (2)").Name = kanri_no.Value
を追加した途端制御できなくなってしましました


  Sub HYOSIEXCEL()

        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("HYOSI (2)").Select()
        oSheets("HYOSI (2)").Name = kanri_no.Value
      '上記2行を加えた途端プロセス終了してくれない
       GoTo label1 
        'Excelファイル操作

label1:
        MRComObject(oSheet, True)
        MRComObject(oSheets, True)
        oBook.Close(False)
        MRComObject(oBook, True)
        MRComObject(oBooks, True)
        oExcel.Quit()
        System.Runtime.InteropServices.Marshal.FinalReleaseComObject(oExcel)
        MRComObject(oExcel, True)
        ProcessCheck()
    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。