【excel vba】利用文件选择对话框选择文本文件并逐行提取内容

最新推荐文章于 2025-05-01 12:00:00 发布

原创最新推荐文章于 2025-05-01 12:00:00 发布 · 718 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

收录于

EXCEL VBA

当前文章被收录于：

EXCEL VBA

4 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个VBASubOpenFileExample过程，演示了如何使用`Application.GetOpenFilename`函数获取用户选择的CSV、DAT或KML文件，然后用`OpenForInput`和`LineInput`逐行读取文件内容。


Sub OpenFileExample()
    Dim filePath As String
    filePath = Application.GetOpenFilename("CSV文件 (*.csv),*.csv,DAT文件 (*.dat),*.dat,kml文件 (*.kml),*.kml", , "选择要打开的文件")
    
    If filePath <> "False" Then
        ' 用户选择了文件
        ' 在这里可以添加处理文件的代码
        Dim lineCount As Integer
        
        lineCount = 0
        Open filePath For Input As #1
        Do Until EOF(1)
            Line Input #1, textLine
            lineCount = lineCount + 1
        Loop
        Close #1
    Else
        Exit Sub
    End If
    Debug.Print lineCount
End Sub

标签

#excel