VBA如何使用API函數來獲取電腦com1的電子秤數據？Excel VBA調用Windows API快速查找選定的文件Excel選擇文件名列表并自動從“A1”文件夾中查找相應的文件。ShellExec

VBA如何使用API函數來獲取電腦com1的電子秤數據？

Excel VBA調用Windows API快速查找選定的文件

Excel選擇文件名列表并自動從“A1”文件夾中查找相應的文件。

ShellExecuteA，DataObject，Clipboard，find，SendKeys

PrivateDeclareFunctionShellExecuteLib “shell32.dll”Alias

“ShellExecuteA”（ByValhwndAsLong，ByVallpszOpAs

String，ByVallpszFileAsString，ByVallpszParamsAsString，

ByVallpszDirAsString，ByValFsShowCmdAsLong）AsLong

constw ¨SHOW=5

Subtest（） 選擇。復制

DimMyDataAsDataObject

DimsTempAsString，sAsString

SetMyData=NewDataObjectMyData.GetFrom剪貼板

sTemp=我的數據.GetText

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

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

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

vbNullString，vbNullString，SW SHOW申請。等等（now TimeValue（“0:00:02”）

sendkeys&；“{enter}”

endsub

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

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

初學者可以用錄制宏的方法來模擬需要實現的宏，然后修改宏得到最終的VBA代碼。

我希望我能幫助你。你好，我是最深的感覺。我很高興為你回答。excelvba調用windowsapi快速查找所選文件。Excel選擇文件名列表并自動從“A1”文件夾中查找相應的文件。ShellExecuteA，DataObject，Clipboard，find，SendKeysPrivate聲明函數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（） 選擇。復制Dim MyData As DataObject Dim sTemp As String，s As String設置MyData=New DataObjectMyData.GetFrom剪貼板sTemp=我的數據.GetTexts=替換（sTemp，vbCrLf，“”），s=替換（s，vbTab，“”）我的數據.SetText（個）MyData.PutInClipboard文件shell執(zhí)行0&，“查找”范圍（“a1”），vbNullString，vbNullString，SWuShow申請。等等（now TimeValue（“0:00:02”）sendkeys S&；“{enter}”End Sub比較專業(yè)的科普知識，歡迎關注我。如果你喜歡我的回答，也請給我表揚或轉發(fā)，你的鼓勵是支持我寫下來的動力，謝謝。