这是一个通过VBA读取文件的例子。作了两个button,一个用来启动程序,一个用来清除读出的文件内容。
共做了两个sheet,一个用来放button, 一个用来放读出来的数据。
文件内容
ID=1234
content=kasjdfiajewoirjawoerwer
content=kasjdfiajewoirjawoerwer
- Private Sub ClearTable_Click()
- Call clearTableRecord
- End Sub
- Private Sub Start_Click()
- Call doit
- Sheets("table").Select
- End Sub
- Public folder As String
- Public ext As String
- Sub doit()
- folder = Worksheets("program").Range("C3").Value
- ext = Worksheets("program").Range(<