各位大神好：
我正在撰寫一個程式，需要點擊一個按鈕，用VB打開存在電腦任意位置的某個excel，請各位大神注意，不能只打開存在某盤某檔案夾的，需要是電腦任意位置都可以的。然后把每個單元格中的資料依次放入一個陣列。挺緊急的，跪求各位幫忙！感激不盡
uj5u.com熱心網友回復：
用workbook.open陳述句可以打開任意位置的xls檔案至于單元格的資料放入陣列，請參考下面的例子：
Sub test()
Dim ww, a
ww = Range("a1:a16")
a = Application.WorksheetFunction.Transpose(ww)
Debug.Print UBound(a), Join(a, "*")
End Sub
uj5u.com熱心網友回復：
Private Sub CommandButton1_Click()
Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
Dim vSItem As Variant
With fldr
If .Show = -1 Then
For Each vSItem In .SelectedItems
With GetObject(CreateObject("Scripting.FileSystemObject").GetFileName(vSItem))
crr = .Sheets(1).UsedRange '把每個單元格中的資料一次性次放入一個陣列
.Close (False)
End With
Next vSItem
Else
End If
End With
Set fd = Nothing
End Sub
uj5u.com熱心網友回復：
好象有個ShellExecute的API吧/uj5u.com熱心網友回復：
電腦任意位置是什么意思，無非是檔案系統能夠實作的硬碟、U 盤、光碟以及網路檔案吧？總不至于讓程式自己隨機查找打開吧？
用 CommonDialog 讓用戶指定不行嗎？
uj5u.com熱心網友回復：
處理命令列，在excel檔案上按住shift鍵點滑鼠右鍵，選打開方式、選擇程式、瀏覽、找到你的exe程式、勾選始終使用選擇的程式打開這種檔案、確定。以后只要在excel檔案上雙擊滑鼠左鍵，就會用你的程式打開excel檔案了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129667.html
標籤：VB基礎類