如何用VB读取某个特定位置的EXCEL文件中的某个工作簿中的某行某列的内容？
1：VB窗口中有一个控件command1，一个文本框text12：资源管理器e：\1.xlsx是要读取的文件位置3：要读取的内容是1.xlsx工作簿：2行数：3列数A4：...
1：VB窗口中有一个控件command1，一个文本框text1
2：资源管理器 e：\1.xlsx 是要读取的文件位置
3：要读取的内容是1.xlsx 工作簿：2 行数：3 列数A
4：将读到的内容传到text1中 展开
2：资源管理器 e：\1.xlsx 是要读取的文件位置
3：要读取的内容是1.xlsx 工作簿：2 行数：3 列数A
4：将读到的内容传到text1中 展开
2个回答
展开全部
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="E:\1.xlsx" '打开目标文件
Me.TextBox1.Value = ActiveWorkbook.Sheets(2).Range("A3") '给文本框1赋值
ActiveWorkbook.Close No '贺冲关闭目兆拍携标文件
End Sub
根据你的要求族伏，供参考！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
我有个类似的你参考下
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
