|
我用宏程序读取TXT信息,在选取文件时如果未选取则推出,否则继续后面执行程序?
程序如下:
Dim fn As Integer
Dim MyStr As String
Dim files
Dim ss As String
Set wb_1 = ThisWorkbook
Set sh_1 = wb_1.Sheets("GPS")
Application.ScreenUpdating = False '关闭屏幕更新,防止闪屏、加快代码运行
files = Application.GetOpenFilename("请打开最新的GPS文件(*.txt),*.txt", , , , True) '选取一个范围,可以选多个excel文
件
这里该怎么写程序啊?
Sheets("GPS").Rows("2:2").Font.Bold = True
ThisWorkbook.Sheets("GPS").Cells(2, 1) = "小区名"
ThisWorkbook.Sheets("GPS").Cells(2, 2) = "GPS时钟编号"
- Sub txt文件()
- Dim txtfile
- txtfile = Application.GetOpenFilename("文本文件(*.txt),*.txt", 1, "选择要打开的文本文件", , True)
- If Not IsArray(txtfile) Then MsgBox "没有选择任何文件": Exit Sub
- '接下来加你的代码
- End Sub
复制代码
|
|