一種方法是將源設置爲單獨的對象,將輸出圖紙設置爲對象。然後每個對象可以單獨處理或以您選擇的任何方式處理。
EG USB1應該有與USB2不同的文件路徑。同樣,每個工作簿可以是一個對象,每個片可以是對象的每個片內的範圍可以是對象
如USB1
Dim objFs1 As Object, objF1 As Object, objF1 As Object, objFc1 As Object
Set objFs1 = CreateObject("Scripting.FileSystemObject")
Set objF1 = objFs1.GetFolder(strFilePath)
Set objFc1 = objF1.Files
USB2
Dim objFs2 As Object, objF2 As Object, objF2 As Object, objFc2 As Object
Set objFs2 = CreateObject("Scripting.FileSystemObject")
Set objF2 = objFs2.GetFolder(strFilePath)
Set objFc2 = objF2.Files
不知道你怎麼想加載設置的USB對象,但一種可能性是使用類似文件對話框來選擇文件/文件夾
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
End
End If
For lngCount = 1 To .SelectedItems.Count
strEndofPath = InStrRev(.SelectedItems(lngCount), "\")
strFilePath = Left(.SelectedItems(lngCount), strEndofPath)
strFilename = Right(.SelectedItems(lngCount), Len(.SelectedItems(lngCount)) - strEndofPath)
Next lngCount
End With
個爲Excel
Dim objWB1 As Workbook, objSheet1 As Worksheet, rngArea1 as Range
Dim objWB2 As Workbook, objSheet2 As Worksheet, rngArea2 as Range
道歉 - 這只是一個示例方法來處理多個設備。 「Scripting.FileSystemObject」更適合於USB驅動器而非設備。您的設備是否提供支持或驅動程序?訪問和控制HID設備的功能包含在位於System32文件夾中的Windows hid.dll中 - 試試這個[Link](http://www.florian-leitner.de/index.php/category/usb -HID庫/#躲在級) – osknows 2011-04-20 18:36:13