作者ptguitar (佩蒂吉他)
看板Office
标题[算表] excel vba
时间Thu Jan 26 16:14:53 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1485418496.A.E9B.html
※ 编辑: ptguitar (1.34.252.11), 01/26/2017 16:15:15
2F：→ waiter337: if strFile = "" then 01/27 02:09
3F：→ waiter337: exit sub 01/27 02:10
4F：→ waiter337: end if 01/27 02:10
5F：→ waiter337: 放在strFile = Application.GetOpenFilename( 的下一行 01/27 02:10
6F：→ ptguitar: 感谢各位大大~ 01/27 07:07