投稿日 | : 2007/08/10(Fri) 14:22 |
投稿者 | : 89式 |
Eメール | : |
URL | : |
タイトル | : 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メソッドは失敗しました」という実行時エラーが出ます…。