標題:
請問隱常問題....
[打印本頁]
作者:
steven
時間:
2010-6-19 21:10
標題:
請問隱常問題....
如範例1請大大指導謝謝...
作者:
Hsieh
時間:
2010-6-19 21:58
回復
1#
steven
Private Sub CommandButton1_Click()
Dim D
Set D = CreateObject("Scripting.FileSystemObject")
For Each ob In Sheet1.OLEObjects
If ob.Name Like "ComboBox*" Then ob.Visible = False
Next
ActiveWorkbook.Save
D.CopyFile ActiveWorkbook.FullName, "D:\Test.xls"
Sheet1.OLEObjects.Visible = True
End Sub
複製代碼
作者:
steven
時間:
2010-6-20 20:56
謝謝大大指導感恩.
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)