A. 如何用activex控制項和vba製作powerpoint交互課件
VBA(Visual Basic for Applications,Visual Basic應用程序設計語言)是Visual Basic和許多可編程軟體應用程序(特別是Microsoft Office套件)所採用的語言。vba在powerpoint中的應用被稱為powerpoint製作的高級部分,很多人都無法去學習,都似乎敬而遠之。你可能對VBA編程已有相當豐富的經驗,希望你能把你的經驗交流給大家,可能你還是初學者,大家一起來學習,讓我們都成為powerpoint課件製作高手。
B. autocad中用VBA與EXCEL進行交互的問題
可以實現的,http://tieba..com/f?kz=728215650
C. 將下列vba語句與用戶窗體實現交互連接
'添加文本框TextBox1輸入文件名稱,TextBox2輸入行號,命令按鈕CommandButton1
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j, m As Integer
Dim Temp As String
Dim myapp As New Application
Dim sh As Worksheet
Dim rw As Long
Dim fn As String
fn = TextBox1 & ".xls"
rw = CLng(TextBox2)
Debug.Print rw
Application.ScreenUpdating = False
Temp = "C:\Documents and Settings\kkk\桌面\板塊資金\" & fn
myapp.Visible = False
Set sh = myapp.Workbooks.Open(Temp).Sheets(1)
For i = 2 To 12
j = 2 + (i - 2) * 6
m = j + 1
Sheets("資金流向").Cells(rw, j) = sh.Cells(i, 2)
Sheets("資金流向").Cells(rw, m) = sh.Cells(i, 4)
Next
myapp.Quit
Set sh = Nothing
Set myapp = Nothing
Application.ScreenUpdating = True
End Sub
D. 用VBA有什麼辦法可以python相連接嗎
方法如下:
Sub test()
Call Shell("C:\Python27\Python.exe C:\Users\Hongxing\Desktop\py2exe\Hello.py", vbNormalFocus)
End Sub
E. excel vba怎麼自動打開其他軟體
使用shell函數即可。
shell函數用法:Shell(pathname[,windowstyle])
函數帶有兩個參數:第一個pathname是必要參數。要執行的程序名,以及任何必需的參數或命令行變數,可能還包括目錄或文件夾,以及驅動器。第二個Windowstyle是可選參數。表示在程序運行時窗口的樣式。如果省略,則程序是以具有焦點的最小化窗口來執行的。
第二參數Windowstyle 參數設置不同的值,打開的程序有不同的效果,其對應關系如下:
0——窗口被隱藏,且焦點會移到隱式窗口
1——窗口具有焦點,且會還原到它原來的大小和位置。
2——窗口會以一個具有焦點的圖標來顯示。
3——窗口是一個具有焦點的最大化窗口。
4——窗口會被還原到最近使用的大小和位置,而當前活動的窗口仍然保持活動。
6——窗口會以一個圖標來顯示。而當前活動的的窗口仍然保持活動。
舉例——假定用VBA來打開計算器程序,並使計算器窗口具有焦點,且還原到它原來的大小和位置,代碼如下:
Sub VBA調用其他程序示例()
Shell "calc.exe", 1
End Sub
說明:
1、Shell函數具有返回值,如果打開程序成功的話,返回代表這個程序的任務ID,若不成功,則會返回0,示例中不需用它的返回值,按VBA規則就不能用括弧。
2、這里打開的是系統文件夾裡面的程序,所以省略了路徑,如果打開其他文件夾的程序,則需要指明路徑。
F. VBA語言如何實現去點擊另外一個軟體按鈕呢
還是沿用你的方法,首先確定要按的按鈕是不是默認按鈕,如果是,發送「回車鍵」碼即可,如果不是,先發送「Tab」碼數次後再發送「Enter」。
還有一思路:看這個按鈕有對應的菜單項沒有,一般菜單都設有快捷鍵,用SendKeys發送菜單快捷鍵碼也行。
G. 怎樣利用VBA在Office的兩個軟體,例如word和excel之間直接傳遞數據
打開文件,選擇不同的文件,選擇有有關內容復制、粘貼即可 。
H. VBA程序與與EXCEL的關系
Excel與VBA自動結合,成為了一種強大的可定製的應用軟體。但VBA中沒有加入任何的Excel組件,VBA通過操作Excel的對象模型來顯示出它的強大功能。下面的ExcelVBA的一些主要的作用:1、插入文本字元串或者公式。如果需要經常在工作表中輸入一個很長的名稱,可創建一個宏來自動完成。2、自動執行需要經常使用的過程。如果用戶經常要程序化的完成某項工作,不妨使用宏來自動完成。3、自動完成重復的操作。4、創建自定義的命令。可以將幾個菜單命令組合在一起,這樣只需一次就可執行這幾個命令。5、創建自定義工具欄按鈕。可以自定義工具欄,在其中加上執行用戶自已所編寫的宏按鈕。6、為不夠熟悉的Excel用戶創建簡化的程序。例如,可以建立一個十分簡單的數據輸入模板。7、開發新的工作表函數。用戶可以創建自定義函數來進一步簡化公式。8、自定義對話框以及添加新的菜單命令。9、創建自定義載入宏。11、可以與多個應用程序進行交互。例如可引用Access資料庫中的數據創建Excel圖表,然後將該圖表引入到Word文檔中。12、可以導出通用的過程,以供其它用戶使用。
I. ppt的vba是如何實現交互功能的
http://wenku..com/view/ef5580976bec0975f465e21f.html
J. VBA Word Excel 數據交互
我是使用OFFICE 2003來做的,不知道你那好使不好使
Private Sub CommandButton2_Click()
'防止重復打開同一Word文檔導致錯誤
If Not WordDocIsOpen("F:\總工月報表.doc") Then
'創建Word對象
Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = True
'打開指定文檔
Set objDocument = objWordApp.Documents.Open("F:\總工月報表.doc")
'獲取當前Excel的SHEET1的單元格C2數據
strName = ThisWorkbook.Sheets(1).Cells(2, 3).Value
'將取得得值設定到Word表格的1行2列中
objDocument.Tables(1).Cell(1, 2).Range.Text = strName
End If
End Sub
'判斷Word文檔是否被重復打開
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
Dim objWordApp As Object
Dim objWordDoc As Object
WordDocIsOpen = False
Set objWordApp = Nothing
On Error Resume Next
strDocName = UCase(strDocName)
'判斷是否有Word程序被打開
Set objWordApp = GetObject(, "Word.Application")
If Not objWordApp Is Nothing Then
'判斷指定Word文件是否被打開
For Each objWordDoc In objWordApp.Documents
If UCase(objWordDoc.FullName) = strDocName Then
WordDocIsOpen = True
Exit For
End If
Next
End If
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Function