Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在vba中从.sh文件中读取数据_Vba - Fatal编程技术网

如何在vba中从.sh文件中读取数据

如何在vba中从.sh文件中读取数据,vba,Vba,我正在处理需要从.sh文件获取数据的VBA项目。 我已经尝试以与文本文件(.txt)和二进制文件(.bin)相同的方式读取,但无法获取数据。 请帮助我找到一种从扩展名为SH的文件中读取数据的方法 这是我已经尝试过的: 打开文件名进行输入 打开文件名进行二进制锁读取 一个简单的文本文件读取算法将起作用: Sub ReadFileLineByLine() Dim my_file As Integer Dim text_line As String Dim file_name

我正在处理需要从.sh文件获取数据的VBA项目。 我已经尝试以与文本文件(.txt)和二进制文件(.bin)相同的方式读取,但无法获取数据。 请帮助我找到一种从扩展名为SH的文件中读取数据的方法

这是我已经尝试过的:

  • 打开文件名进行输入
  • 打开文件名进行二进制锁读取

  • 一个简单的文本文件读取算法将起作用:

    Sub ReadFileLineByLine()
    
        Dim my_file As Integer
        Dim text_line As String
        Dim file_name As String
        Dim i As Integer
    
        file_name = "C:\Users\mohit.bansal\Desktop\update.sh" 'change path of Sh File
    
        my_file = FreeFile()
        Open file_name For Input As my_file
    
        i = 1
    
        While Not EOF(my_file)
            Line Input #my_file, text_line
            'Cells(i, "A").Value = text_line
            Debug.Print text_line
            i = i + 1
        Wend
    End Sub
    

    礼貌:

    谢谢您的回答,它工作得非常好!!我的错误是读取整个文件,而不是逐行读取。