SolidWorks專門論壇 SolidWorks forum

 找回密碼
 註冊
查看: 17067|回復: 8

【分享】在SW開啟Excel工具選單

[複製鏈接]
發表於 2017/7/21 01:29:37 | 顯示全部樓層 |閱讀模式
悶哥新版的SW-API研習未果,又不敢冒然提問,倒是在代碼中又學習到好多新的東西~
用到的是「在SW啟動Excel文件的宏」& 新學到的 Inputbox 指令帶出的工具選單。
把常用的EXCEL工具在SW中做了整合,也許會有人覺得不必要,但純綷就是灌水,分享一個學習的小成果,不喜勿噴啊~



本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2017/7/21 06:41:39 | 顯示全部樓層
不錯 謝謝分享
想必要有興趣~才有原程式碼 能看到
發表於 2017/7/21 09:45:28 | 顯示全部樓層
挺好的 idea ,謝謝分享。
發表於 2017/7/21 21:13:20 | 顯示全部樓層
很贊啊
俺以前每次都要到指定位置打開(俺工作上經常使用“愚公移山”大法),有了丹大的這個,會方便很多啊。


 樓主| 發表於 2017/7/24 02:25:58 | 顯示全部樓層
分享一下代碼…

  1. Sub ExcelTools()
  2. Dim vaArray As Variant
  3. Dim objFSO As Object
  4. Dim objFolder As Object
  5. Dim objFile As Object
  6. Dim i As Integer

  7. Set objFSO = CreateObject("Scripting.FileSystemObject")
  8. Set objFolder = objFSO.GetFolder("")  '雙引號內填入工具所在資料夾名稱,注意最後不要有""
  9. ReDim vaArray(1 To objFolder.Files.Count)
  10. i = 1
  11. Tools = "Please select a EXCEL file. ( 0 = Exit )" & Chr(10)
  12. For Each objFile In objFolder.Files
  13.   vaArray(i) = objFile.Name
  14.   If Right(objFile, 4) = "xlsm" Or Right(objFile, 4) = "xlsx" Or Right(objFile, 4) = ".xls" Then
  15.     ToolName = Right(objFile, Len(objFile) - Len(objFolder) - 1)
  16.     Tools = Tools & Chr(10) & i & "   " & ToolName
  17.     i = i + 1
  18.   End If
  19. Next objFile
  20. i = i - 1
  21. Start:
  22. X = InputBox(Tools, objFolder)
  23. If X > i Then
  24. MsgBox "Invalid Value!Please Try again."
  25. GoTo Start
  26. ElseIf X = 0 Then
  27. Exit Sub
  28. Else
  29. Dim xlApp As Object
  30. Set xlApp = CreateObject("Excel.Application")
  31. xlApp.Application.Visible = True
  32. xlApp.Workbooks.Open (objFolder & "" & vaArray(X))
  33. End If
  34. End Sub
複製代碼


發表於 2017/11/10 23:11:16 | 顯示全部樓層
thank you so much =)
發表於 2020/11/28 22:41:21 | 顯示全部樓層
这个可以理解为用宏命令做了一个菜单么,如果改为用鼠标点击会不会更好一点。

點評

功力不足,期待大大分享  詳情 回復 發表於 2020/12/30 23:34
 樓主| 發表於 2020/12/30 23:34:43 | 顯示全部樓層
cj8510 發表於 2020/11/28 22:41
这个可以理解为用宏命令做了一个菜单么,如果改为用鼠标点击会不会更好一点。 ...

功力不足,期待大大分享

點評

您太谦虚了!每个人需求和习惯不一样,自己喜欢就很好  詳情 回復 發表於 2020/12/31 08:01
發表於 2020/12/31 08:01:09 | 顯示全部樓層
gt.adan 發表於 2020/12/30 23:34
功力不足,期待大大分享

您太谦虚了!每个人需求和习惯不一样,自己喜欢就很好
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

論壇統計|手機版上論壇|論壇來自幾何科技 論壇架構版次 20240312

GMT+8, 2024/3/29 15:41 , Processed in 0.138789 second(s), 21 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回復 返回頂部 返回列表