iT邦幫忙

0

EXCEL VBA 拖曳檔案至物件後匯入

Hi請問大家能否給我個好建議呢?
由於公司這邊有遇到SAP客製化模組輸出的資料 格式是XLS
但由於字串中間分隔TAB不知道什麼原因導致直接由EXCEL開啟的時候會有部分資料無法讀到的問題
後來解決方式是開啟EXCEL後再開啟該檔案 由字串匯入精靈匯入
這樣格式資料就正常了
為此我寫了EXCEL VBA巨集
Sub Macro1()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename(FileFilter:="Excel 97-2003 活頁簿 (.xls),.xls", Title:="請選擇檔案")
If fileToOpen <> False Then
Workbooks.OpenText Filename:=fileToOpen _
, origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
End If

目前是套在button上 點選button後可選擇檔案
不過這樣仍不太方便
理想中想弄個物件 當我把檔案拖曳到該物件上 就可以直接做字串匯入
只是目前沒想法該怎麼下手
有人能提供一些想法嗎?
應該沒有辦法

尚未有邦友回答

立即登入回答