程式碼如下
Set xlapp = CreateObject("Excel.application")
Set xlbook = xlapp.Workbooks.Open("filename.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
xlsheet.Range("A1:G30").Select -----------------＞＞＞＞＞＞
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.
.
.
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
第一次執行都沒問題,但是第二次再箭頭處就會出現
'沒有設定物件變數或with區塊變數'
我查了全文檢索但卻無發找到詳細解答
拜託拜託......各位高手幫我解決一下
謝謝
Set xlapp = CreateObject("Excel.application")
Set xlbook = xlapp.Workbooks.Open("filename.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
xlsheet.Range("A1:G30").Select -----------------＞＞＞＞＞＞
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.
.
.
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
第一次執行都沒問題,但是第二次再箭頭處就會出現
'沒有設定物件變數或with區塊變數'
我查了全文檢索但卻無發找到詳細解答
拜託拜託......各位高手幫我解決一下
謝謝
文章標籤
全站熱搜
Help!! Help!! xlsheet.Range("A1:G30").Select -----------------＞＞＞＞＞＞ Selection.Borders(xlDiagonalDown).LineStyle = xlNone----＞＞＞＞＞＞ Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) . . 已經試了一天了還是解不出來..... 為什麼第一次就行跑第二次就不行..... sheet 範圍已經有圈選出來,但為什麼 selection 就會出現 '沒有設定物件變數或with區塊變數' 救命阿
彸蚚Getobject斐膘勤砓,堤渣綴婬蚚Createobject﹝秪峈Excel褫夔頗蚺隱囀湔笢﹝
Thank you for your help!! 我將程式碼改成如下後 ----------------------------------------------------------- On Error Resume Next Set xlapp = GetObject("", "Excel.Application") If Err.Number ＜＞ 0 Then Set xlapp = CreateObject("", "Excel.Application") End If Err.Clear ------------------------------------------------------------ 已不會再出現 '沒有設定物件變數或with區塊變數' 之訊息 但是我仍然無法執行下列動作 -------------------------------------------------------- Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) ------------------------------------------------------ 也就是 Selection 後完全無法將選擇之區域 進行格式變更, 但第一次都可以,第二次就不行 Why??? 再幫幫我.......謝謝
我想第一次都可以,第二次就不行的問題 應該是因為你open的file沒有關吧
我最後解決的方法是將所有 --------------------------------------------------------------- xlsheet.Range("A1:G30").Select -----------------＞＞＞＞＞＞ Selection.Borders(xlDiagonalDown).LineStyle = xlNone----＞＞＞＞＞＞ Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ with selection..... 都改成 ----------------------------------------------------------------- xlapp.ActiveSheet.Range("A1:G30").Borders(xlDiagonalDown).LineStyle = xlNone ----------------------------------------------------------------- 如此就可解決所有問題... 缺點 程式碼 又臭又長 謝謝大家幫忙囉........
..... xlapp.quit() '--------------------＞ 多加這行試試 Set xlsheet = Nothing Set xlbook = Nothing Set xlapp = Nothing 沒有加 xlapp.quit() , EXCEL 的應用程式是不會停止的 你在工作管理員中還是會看到 EXCEL.exe 的處理程序
在 VB 中請避免使用 Selection 這個物件，配合 Set 或 With ... End With 較佳。