→ waiter337: if strFile = "" then 01/27 02:09
→ waiter337: exit sub 01/27 02:10
→ waiter337: end if 01/27 02:10
→ waiter337: 放在strFile = Application.GetOpenFilename( 的下一行 01/27 02:10
→ ptguitar: 感謝各位大大~ 01/27 07:07
軟體:excel
版本:2007
問題檔案
https://drive.google.com/open?id=0BwCgrQhGgaw7aHpkQkpYWDhoWnM
我有一段vba程式
是可以開啟檔案總館選擇csv檔案匯入
但我想要若是取消匯入的時候
可以中斷這個程式並跳出 已中斷
而且不會執行下面的clear動作
不知道要怎麼改
Sub 餘額檔匯入()
Worksheets("餘額檔").Activate
Dim ws As Worksheet, strFile As String, abc As String
Set ws = ActiveWorkbook.Sheets("餘額檔") '設定要輸進去的工作表名稱
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please selec csv file...")
Sheets("餘額檔").Rows("3:100000").Select
Selection.ClearContents
Sheets("餘額檔").Columns("A:AB").Select
Selection.ClearContents
With ws.QueryTables.Add(Connection:="TEXT;" & strFile,
Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
abc = Sheets("餘額檔").Range("A1").End(xlDown).Row
Range("AC2:AQ2").Select
Selection.AutoFill Destination:=Range("AC2:AQ" & abc)
MsgBox "匯入完成"
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.252.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1485418496.A.E9B.html
※ 編輯: ptguitar (1.34.252.11), 01/26/2017 16:15:15