欢迎光临 石陆软件屋  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新日志
AutoCAD VBA 支持模块下载(含最新AutoCAD 2010-2022 VBA支持模块) EXCEL如何使用动态公式
晴天 写一个将南方工程之星的原始dat文件导入到excel的函数。方便大家使用。   [ 日期:2016-01-17 ]

写一个将南方工程之星的原始dat文件导入到excel的函数。方便大家使用。


Sub AddDat()
    '/石陆软件屋 http://www.cnng.net
    Dim fname As String, MaxRow As Long
    MaxRow = ActiveSheet.UsedRange.Rows.Count
    If MaxRow > 1 Then MaxRow = MaxRow + 1
    fname = Application.GetOpenFilename("Datfile (*.Dat), *.Dat,All files (*.*),*.*", 0, "选择打开文件", , False)
    If LCase(fname) = "false" Then Exit Sub
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fname, Destination:=Range("A" & MaxRow))
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End Sub





[阅读字体大小: ]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=90
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=90&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情