聊到open，大多数人都知道，有朋友问初学cad用哪个版本，还有人想问open xls file，这到底是咋回事？实际上open xls file呢，下面就由小编为大家介绍一下open xls file，跟我一起来看看吧~
open xls file
'需imports system.data、system.data.oledb
2 Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
3 '使用OpenFileDialog
4 Dim openfile as new OpenFileDialog()
5 openfile.InitialDirectory = "..\" '开启时的资料夹路
6 openfile.Filter = "Excel files(*.xls)|*.xls" '只抓excel
7 openfile.ShowDialog()
8
9 '塞资料至DataGridView1
10 If openfile.FileName <> "" Then
11 Dim conn As String '连线字串
12 Dim Mycon As OleDbConnection
13 Dim myDa As OleDbDataAdapter
14 Dim dt As New DataTable
15
16 conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
17 "Data Source=" & openfile.FileName & _
18 ";Extended Properties=Excel 8.0;"
19
20 Mycon = New OleDb.OleDbConnection(conn)
21 myDa = New OleDb.OleDbDataAdapter("select * from [excel的sheet名$$]", Mycon)
22 myDa.Fill(dt)
23 Me.DataGridView1.DataSource = dt
24 End if
25 End Sub
C#：//需using system.data、system.data.oledb 2//btn1 3private void btn1_Click(object sender, EventArgs e) 4 { 5 //选择excel 6 OpenFileDialog openfile = new OpenFileDialog(); 7 openfile.InitialDirectory = "..\\"; //开启时预设的资料夹路径 8 openfile.Filter = "Excel files(*.xls)|*.xls"; //只抓excel档 9 openfile.ShowDialog(); 10 11 //开启档案载入资料 12 if (openfile.FileName != "") 13 { 14 string conn; 15 OleDbConnection myconn; 16 OleDbDataAdapter myad; 17 DataTable dt = new DataTable(); 18 conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + openfile.FileName + 19 ";Extended Properties=Excel 8.0;"; 20 myconn = new OleDbConnection(conn); 21 myad = new OleDbDataAdapter("select * from [excel的sheet名$$]", myconn); 22 myad.Fill(dt); 23 this.dataGridView1.DataSource = dt; 24 } 25 } 因为不是很清楚你的数组是何种样式定义的，我暂且给你一个直接绑定到DataGridView的例子。您可以自行修改并且参考。
_openFileDialog.InitialDirectory = "C:\\";
_openFileDialog.Filter =
"xls files (*.xls)|*.xls|xlsx files (*.xlsx)|*.xlsx";
_openFileDialog.FilterIndex = 1;
_openFileDialog.RestoreDirectory = true;
_openFileDialog.Multiselect = true;
if (_openFileDialog.ShowDialog() == DialogResult.OK)
{
txtFileName.Text = _openFileDialog.FileName;
}
把的函数事件里就了
VBA 用Application.GetOpenFilename打开了另外一个excel文件，如何把打开的文件设为激活？
思了。
一、如果是用VBA的编程环境，根本要用这种方式。
你可接
dim wb as excel.workbook
set wb=application.workbooks.open("你的另一个EXCEL的路径")
dim sh as excel.worksheet
set sh=wb.worksheets(1)
sh就是你要的sheet1
二、期间需要反复操作的话，其实没必要激活；激活是给人用的。如果是用程序的话，激活不激活窗口和你能不能操作没有任何联系。
比如上面的sh获得后，你可以
sh.cells(1,1).value="aaa"
就可以对sheet1的a1单元格内容设置为aaa
然后期间你要反复操作的话，其实就是直接调用wb和sh。
三、如果你坚持要激活
sh.active
sh.select
就可以了。
狗屎百度，居然说我账号异动一定要提供手机，骗谁啊，老子不登录了。
f = Application.GetOpenFilename("EXCEL文件,*.*,", 1, MultiSelect:=True)怎么判断是否打开文件了呢？
对于点击了"打开"按钮断取决于 MultiSelect 参数的设置,面两种情况:
(一)如果 MultiSelect 设置为 True,那么用这个方断:
if isarray(f) then '判断返回值是否为数组
'your codes
end if
(二)如果 MultiSelect 设置为 False,那么用这个方式判断:
if f <> false then
'your codes
end if
这是鄙人的经验...
x=xlsread('d:\s.xls',1)为什么老是出现XLSREAD unable to open file d:\s.xls.
因为xls的格对，xlsread不能解析它。情况发生在其他文件传化成xls文件时。
解决方法是文件另存为“Excel 5.0/95 工作簿(*.xls)”格式就行了，好运！
cssalp！！！！！！！
matlab 读取xls为什么错误？
错误提示很清楚没有找到F:\paper\data.xls 这个文件， 确认一下你的文路径对不对？
我建样写代码：
C=xlsread('F:\paper\data.xls');
还有一个就是注意你的文件时office2003还是office2007的，这两个的后缀是不一样的！
祝你学习愉快！
excel的VBA里面的WorkBooks.Open的问题
通常情，我们应该避复打开文件，如果你略懂VBA使用下面测试：
将你的WOrkBooks.Open("D:\xx.xls")
改成如下：
Dim Wb as WorkBook '定义一个wb工作簿变量
On Error Resume Next '容错
Set wb = WOrkbooks("xx.xls")
'先引用xx.xls工作簿，如果该工作簿没有打开，那么将发生错误9；如果已经打开，将跳过下面这句打开工作簿的代码！
If Err.Number = 9 Then Set wb = WorkBooks.Open("D:\xx.xls") '捕获错误9，打开相关工作簿
宏，Workbooks.Open Filename:="......xls"打开的文件名是目前已开文件中某个单元格的名称
Workbooks.Open Filename:="......xls"="......"目录到文件名之前 & range("A1").text & ".xls"
跪求大神帮忙！！！！??? XLSREAD unable to open file testdata.xlsx是什么原因
一般情况下，是
程序没有和excel放在同一路径，如上图所示，确保那个excel在current folder，当前文件夹就行。
要是还有其它情况，额，我也不太清楚了
Excel 关于 Workbooks.Open 打开赋值的问题
xlsModelBook 没赋上值，先打开，再赋对象
xlsApp.Workbooks.Open(Filename:=ThisWorkbook.Path + "\model\" + Trim(Sheet1.Cells(i, 2)))
Set xlsModelBook =ActiveWorkbook
Debug.Print xlsModelBook .Worksheets.Count
如果还不行的话看看路径是否正确，文件是在
Trim(cstr(Sheet1.Cells(i, 2)))
