在VB中读取Excel文件中工作表的名称

kstlpan 2005-11-28 03:34:51

在VB中读取Excel文件中工作表的名称

...全文

664 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

AMX004 2005-12-13

打赏
举报

回复

Dim LexcelApp As New Excel.Application
Dim LexcelBook As Excel.Workbook
Dim LexcelWorksheet As Excel.Worksheet
Dim LexcelWSName As String
LexcelBook = LexcelApp.Workbooks.Open(FilePath)
LexcelWorksheet = LexcelBook.Worksheets.Item(loopi)
LexcelWSName = LexcelWorksheet.Name

northwolves 2005-12-08

打赏
举报

回复

for i=1 to xlbook.sheets.count
debug.print xlbook.sheets(i).name
next

kstlpan 2005-11-28

打赏
举报

回复

自己解决顶一下

VB读取EXCEL源码Private Sub Command1_Click() Dim i As Integer, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = False '设置EXCEL不可见 Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 'xlsheet.Activate '激活工作表 Dim litem For i = 2 To 7 '行/记录条数 Set litem = ListView1.ListItems.Add() litem.Text = xlsheet.Cells(i, 1) litem.SubItems(1) = xlsheet.Cells(i, 2) litem.SubItems(2) = xlsheet.Cells(i, 3) litem.SubItems(3) = xlsheet.Cells(i, 4) 'MsgBox xlsheet.Cells(i, j) Next xlBook.Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL Set xlApp = Nothing '释放EXCEL对象 End Sub

用简单的例子说明vb连接Excel数据表获得数据表的工作表名和查询其中的数据

VB，读EXCEL。转，不是本人编写的！在vb读取excel中的数据并在窗体上显示 Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data) For i = 1 To CInt(UBound(Data, 1)) For j = 1 To CInt(UBound(Data, 2)) Set a = Form1.Controls.Add("VB.TextBox", "textbox" & CStr(i) & CStr(j) & CStr(No)) ReDim TextBoxA(1 To i, 1 To j) '重新定义动态数组！ Set TextBoxA(i, j) = a With TextBoxA(i, j) '设置文本框属性 .Text = Data(i, j) .Visible = True .Height = 200 .Width = 500 .Top = .Height * (i - 1) .Left = .Width * (j - 1) + FormWidth End With Next Next End Sub

用于对OFFICE中，excel 电子表的VBA加密密码解除。方便，简单，易用。

通过excel宏工具，快速实现多个excel工作簿数据合并功能。适用于工作模板下发填报后一键汇总生成总表。内附参考实例，以及vb代码。

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章