VBA到Python程式開發202101第7次上課
01_重點回顧與判斷檔案是否存在
02_判斷all存在與刪除與刪除all以外檔案
03_合併細節說明與檔案分割與取得檔名
04_新增SQLite資料庫資料表與欄位
05_SQL資料庫與建立資料表與欄位並新增資料
06_用Select語法查詢結果
完整教學
http://goo.gl/aQTMFS
吳老師教學論壇
http://www.tqc.idv.tw/
教學論壇(之後課程會放論壇上課學員請自行加入)：
https://groups.google.com/forum/#!forum/tcfst_python_2021_1
課程簡介：入門
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
VBA重要函數到Python
檔案處理
資料庫處理
課程簡介：進階
網頁資料擷取與分析、Python網頁測試自動化、YouTube影片下載器
處理 Excel 試算表、處理 PDF 與 Word 文件、處理 CSV 檔和 JSON 資料
實戰：PM2.5即時監測顯示器、Email 和文字簡訊、處理影像圖片、以 GUI 自動化來控制鍵盤和滑鼠
上課用書：
參考書目
Python初學特訓班(附250分鐘影音教學/範例程式)
作者： 鄧文淵/總監製, 文淵閣工作室/編著?
出版社：碁峰? 出版日期：2016/11/29
Python程式設計入門
作者：葉難
ISBN：9789864340057
出版社：博碩文化
出版日期：2015/04/02
吳老師 110/4/6
EXCEL,VBA,Python,自強工業基金會,EXCEL,VBA,函數,程式設計,線上教學,PYTHON安裝環境
vba判斷工作表是否存在 在 [VBA ] 檢查工作表是否存在- 看板Visual_Basic - 批踢踢實業坊 的推薦與評價
各位板上的大大好
最近有個需求是要"檢查excel中是否有某個名稱的工作表存在"
找了一些資料 先是找到這篇 寫了版本一
https://tinyurl.com/y7sag5k5
------------------------------我是版本一------------------------------
Sub sheet_check_error()
sheetname = "Sheet2"
If Sheets(sheetname) Is Nothing Then
MsgBox ("工作表:" & sheetname & "不存在，請查看是否有拼錯字")
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
ActiveWorkbook.Sheets(sheetname).Activate
End If
End Sub
----------------------------------------------------------------------
後來又找到這篇 抄出了版本二
https://tinyurl.com/y9w7pk6o
------------------------------我是版本二------------------------------
Function checkSheetName(sheetname)
'檢查活頁是否存在
isfind = False
For Each st In Sheets
If st.Name = sheetname Then
isfind = True
Exit For
End If
Next
checkSheetName = isfind
End Function
Sub sheet_check_correct()
sheetname = "Sheet2"
If checkSheetName(sheetname) = False Then
MsgBox "工作表:" & sheetname & "不存在，請查看是否有拼錯字"
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
End If
End Sub
----------------------------------------------------------------------
會寫兩個版本 代表版本一有問題@@
先附上上述兩巨集所在的excel截圖 只存在一個工作表
然後附上版本一執行結果&error提示
最後附上版本二執行結果
找了之前的程式 發現前輩的巨集中有與版本一一樣寫法 那個程式現在也可以跑
但是現在重寫忽然就不行了
想請問各位大大
版本一到底是錯在哪@@?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.240.1.143
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1542895522.A.1A9.html
另外再請問
On Error Resume Next
是不是可以套用在各種類似的錯誤中？
覺得vba最大的困擾就是找不到error在哪@@
※ 編輯: BanPeeBan (180.217.211.34), 11/23/2018 12:37:25
※ 編輯: BanPeeBan (180.217.211.34), 11/25/2018 14:24:37
... <看更多>