投稿日	： 2007/08/10(Fri) 14:22
投稿者	： 89式
Ｅメール	：
ＵＲＬ	：
タイトル	： Excelの操作

はじめまして。

VBからExcelを新規作成しExcelへの処理が終了したあと画面にExcelを表示させ
Excel側でExcelを閉じて再度処理した場合に、エラーが出る処理と出ない処理が
あります。理由がわからず困惑しています。どこがいけないのでしょうか？


↓↓↓↓↓ OKな処理 ↓↓↓↓↓

    Dim ex As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    
    Dim PATH As String
    Dim FNAME As String
    
    FNAME = Text1.Text
    PATH = "C:\AAA\" & Format(FNAME) & ".xls"

    Set ex = CreateObject("Excel.Application")
    Set wb = ex.Workbooks.Add
    Set ws = wb.Worksheets("sheet1")

    '書き込み
    ex.Cells(1, 1) = "テストで作ってみました^v^"

    ws.SaveAs PATH
    ex.Visible = True
    
    Set ws = Nothing
    Set wb = Nothing
    Set ex = Nothing


↓↓↓↓↓ NGな処理 ↓↓↓↓↓

    Dim ex As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    
    Dim PATH As String
    Dim FNAME As String
    
    FNAME = Text1.Text
    PATH = "C:\AAA\" & Format(FNAME) & ".xls"

    Set ex = CreateObject("Excel.Application")
    Set wb = ex.Workbooks.Add
    Set ws = wb.Worksheets("sheet1")

    'セル結合
    Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Merge
        
    ws.SaveAs PATH
    ex.Visible = True
    
    Set ws = Nothing
    Set wb = Nothing
    Set ex = Nothing


なお、NG処理のとき、「Rengeメソッドは失敗しました」という実行時エラーが出ます…。

★ - Excelの操作 - 89式 07/08/10-14:22No.9880
• Re: Excelの操作 - 大吉末吉 07/08/10-14:53 No.9881