level 4
请各位大神帮我看看呀，拜托啦
2018年06月15日 02点06分
level 4
![[狂汗]](/static/emoticons/u72c2u6c57.png)
，感觉我这个贴是在自说自话
![[真棒]](/static/emoticons/u771fu68d2.png)
![[呵呵]](/static/emoticons/u5475u5475.png)
level 7
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
level 4
![[汗]](/static/emoticons/u6c57.png)
level 2
通常是创建Excel的Application，然后再读表，再读到具体的单元格的数据。
dim ExcelSheetPath as string = "c:\test.xlsx" 'Excel文件路径
dim SheetName as string ="Sheet1" '表的名称
Dim app As New Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Open(ExcelSheetPath)
Dim ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet = wb.Sheets(SheetName)
textbox1.text = ExcelSheet.cells(4,1).value
textbox2.text = ExcelSheet.cells(5,1).value
textbox3.text = ExcelSheet.cells(6,1).value
2019年06月21日 08点06分
11
dim ExcelSheetPath as string = "c:\test.xlsx" 'Excel文件路径
dim SheetName as string ="Sheet1" '表的名称
Dim app As New Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Open(ExcelSheetPath)
Dim ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet = wb.Sheets(SheetName)
textbox1.text = ExcelSheet.cells(4,1).value
textbox2.text = ExcelSheet.cells(5,1).value
textbox3.text = ExcelSheet.cells(6,1).value
抱歉这么久才回复你，感谢您的分享！谢谢了
2019年10月13日 14点10分
