VBA如何使用API函數(shù)來獲取電腦com1的電子秤數(shù)據(jù)？Excel VBA調(diào)用Windows API快速查找選定的文件Excel選擇文件名列表并自動(dòng)從“A1”文件夾中查找相應(yīng)的文件。ShellExec

VBA如何使用API函數(shù)來獲取電腦com1的電子秤數(shù)據(jù)？

Excel VBA調(diào)用Windows API快速查找選定的文件

Excel選擇文件名列表并自動(dòng)從“A1”文件夾中查找相應(yīng)的文件。

ShellExecuteA，DataObject，Clipboard，find，SendKeys

PrivateDeclareFunctionShellExecuteLib “shell32.dll”Alias

“ShellExecuteA”（ByValhwndAsLong，ByVallpszOpAs

String，ByVallpszFileAsString，ByVallpszParamsAsString，

ByVallpszDirAsString，ByValFsShowCmdAsLong）AsLong

constw ¨SHOW=5

Subtest（） 選擇。復(fù)制

DimMyDataAsDataObject

DimsTempAsString，sAsString

SetMyData=NewDataObjectMyData.GetFrom剪貼板

sTemp=我的數(shù)據(jù).GetText

s=替換（sTemp，vbCrLf，“”）

s=替換（s，vbTab，“”）我的數(shù)據(jù).SetText（s） MyData.PutInClipboard文件

ShellExecute0&，“查找”，范圍（“a1”），

vbNullString，vbNullString，SW SHOW申請(qǐng)。等等（now TimeValue（“0:00:02”）

sendkeys&；“{enter}”

endsub

在Excel中，單擊“開發(fā)工具Visual Basic”來編程VBA。

在Excel中編程VBA之前，您應(yīng)該對(duì)Excel的常用對(duì)象和屬性有一定的了解：例如，worksheets對(duì)象表示工作簿中所有工作表的集合；worksheets（1）是工作簿中的第一個(gè)工作表；worksheets（1）。范圍（“A1”）返回到單元格A1等

初學(xué)者可以用錄制宏的方法來模擬需要實(shí)現(xiàn)的宏，然后修改宏得到最終的VBA代碼。

我希望我能幫助你。你好，我是最深的感覺。我很高興為你回答。excelvba調(diào)用windowsapi快速查找所選文件。Excel選擇文件名列表并自動(dòng)從“A1”文件夾中查找相應(yīng)的文件。ShellExecuteA，DataObject，Clipboard，find，SendKeysPrivate聲明函數(shù)ShellExecute Lib“shell32.dll”Alias“ShellExecuteA”（ByVal hwnd As Long，ByVal lpszOp As uu String，ByVal lpszFile As String，ByVal lpszParams As String，val lpszDir As String，ByVal FsShowCmd As Long）As Long Const SW uu SHOW=5 Sub test（） 選擇。復(fù)制Dim MyData As DataObject Dim sTemp As String，s As String設(shè)置MyData=New DataObjectMyData.GetFrom剪貼板sTemp=我的數(shù)據(jù).GetTexts=替換（sTemp，vbCrLf，“”），s=替換（s，vbTab，“”）我的數(shù)據(jù).SetText（個(gè)）MyData.PutInClipboard文件shell執(zhí)行0&，“查找”范圍（“a1”），vbNullString，vbNullString，SWuShow申請(qǐng)。等等（now TimeValue（“0:00:02”）sendkeys S&；“{enter}”End Sub比較專業(yè)的科普知識(shí)，歡迎關(guān)注我。如果你喜歡我的回答，也請(qǐng)給我表揚(yáng)或轉(zhuǎn)發(fā)，你的鼓勵(lì)是支持我寫下來的動(dòng)力，謝謝。