如何用VB读取某个特定位置的EXCEL文件中的某个工作簿中的某行某列的内容？

Question

1：VB窗口中有一个控件command1，一个文本框text1
2：资源管理器 e：\1.xlsx 是要读取的文件位置
3：要读取的内容是1.xlsx 工作簿：2 行数：3 列数A
4：将读到的内容传到text1中

Answer 1

Private Sub CommandButton1_Click()

Workbooks.Open Filename:="E:\1.xlsx"  '打开目标文件
Me.TextBox1.Value = ActiveWorkbook.Sheets(2).Range("A3")    '给文本框1赋值
ActiveWorkbook.Close No     '关闭目标文件

End Sub

根据你的要求，供参考！

Answer 2

我有个类似的你参考下
Private Sub CommandButton1_Click()
Dim wb As Workbook, fso, mypath$, myfile$
mypath = "F:\A股日数据\A股"
Set fso = CreateObject("scripting.filesystemobject")
If fso.FileExists(mypath & "\" & TextBox1 & ".xls") Then
ThisWorkbook.Sheets(2).Range("a:g") = ""
Set wb = Workbooks.Open(mypath & "\" & TextBox1 & ".xls")
wb.Sheets(1).Range("A:G").Copy ThisWorkbook.Sheets(2).Range("a1")
wb.Sheets(1).Range("A1").Copy ThisWorkbook.Sheets(1).Range("a1")
wb.Close False
Else: MsgBox "没有这文件"
End If
TextBox1 = ""
TextBox1.SetFocus
End Sub