也许你需要的是 ： ex.Worksheets.Count excel 默认的工作表数量都是 3 ，不过后期的版本都可以自定义新工作簿的工作表数量，没修改的话应该是3.
我只有VB 2005，但是道理一样的！ 首先通过菜单[项目] -- [添加引用]，选择[COM]选项卡，选择“Microsoft Excel XX.0 Object Library”，[确定]。 其中：XX.0 ，视你安装的Office版本而定。 我给你弄了个比较详细例子：你自己根据需要，修改吧！ P...
Private Sub Command1_Click() Dim XlApp As New Excel.Application Dim XLWorkBook As New Excel.Workbook Set XLWorkBook = XlApp.Workbooks.Open(App.Path & "\1.xls") For i = 1 To XLWorkBook.Worksheets.Count List1.AddItem XLWorkBook.S...
"Select * From [sheet1$]" "Select * From [sheet2$]" ........ "Select * From [sheet99$]"
具体操作如下： 首先,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library （这是EXCEL2000） 1 打开Excel： dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.add() 3 设定...
给你看一段我的代码 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlBook = xlApp.Workbooks.Open(OpenFileDialog1.FileN...
--如果接受数据导入的表已经存在 insert into 表 select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) --如果导入数据并生成表 select * into 表 from OPENROWSET('MICROSOFT.JET.OLEDB.4....
直接去重放到COMBOBOX里，这个我要看看，好久以前用过，不知道放那里了，有点忘了。 如果做到辅助列，先给这一列去重，再放到COMBOBOX里。 Dim r As Integer Dim arr As Variant r = Sheets("控件二").Cells(65536, 1).End(xlUp).Row arr = Shee...
vb2008在window10的office2007测试通过，以下是代码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim excelObj As Object = GetObject(, "Excel.Application") If excel...
你试用这就行了，是开始有内容的行到最后有内容的行数： Sub Func1()Dim SumRows As IntegerSheets("Sheet2").SelectActiveSheet.UsedRange.Rows.CountEnd Sub我一般用以下语句求A列最后一行： lastrow = Cells(Rows.Count, 1).End(3).Row