关于如何用Excel VB 提取sheet名字

Posted 2023-05-15

如题，如何通过VB在Excel中提取sheet的名字。
例如:将sheet1,sheet2,sheet3的名字在单元格中表示出来。

参考技术A Sub listSheetName()
i = 1
For Each sSheet In Application.Sheets

Cells(i, 1).Value = sSheet.Name
i = i + 1
Next sSheet

End Sub本回答被提问者采纳 参考技术B 引用"Microsoft Excel Object Library"
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlST As Excel.Sheets
Dim I As Integer
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("D:\My Documents\Test.xls")
For I = 1 To xlWB.Sheets.Count
xlWB.Sheets(1).Cells(I, 1) = xlWB.Sheets(I).Name
Next I
xlApp.Visible = True
Set xlApp = Nothing
End Sub

如何用python将数据写入excel表格

# 需安装 xlrd-0.9.2 和 xlutils-1.7.1 这两个模块
from xlwt import Workbook, Formula
import xlrd
book = Workbook()
sheet1 = book.add_sheet('Sheet 1')
sheet1.write(0,0,10)
sheet1.write(0,1,20)
sheet1.write(1,0,Formula('A1/B1'))
sheet2 = book.add_sheet('Sheet 2')
row = sheet2.row(0)
row.write(0,Formula('sum(1,2,3)'))
row.write(1,Formula('SuM(1;2;3)'))
row.write(2,Formula("$A$1+$B$1*SUM('ShEEt 1'!$A$1:$b$2)"))
book.save('formula.xls')
book = xlrd.open_workbook('formula.xls')
sheet = book.sheets()[0]
nrows=sheet.nrows
ncols=sheet.ncols
for i in range(nrows):
    for j in range(ncols):
        print (sheet.cell(i,j).value)

参考技术A http://www.jb51.net/article/42635.htm 参考技术B 简单的介绍一下这两个库，先说xlrd，这个库读Excel比较方便，各种方法使用起来也挺方便：
bk = xlrd.open_workbook('your.xls')
sh = bk.sheets()[-1]
上面两句就可以打开Excel表格中的一个sheet，sheets得到的是一个list，存放所有的sheet。
sh.nrows是该sheet中的行数，知道这个后就可以使用for循环来读所有的单元格了：
sh.row(i)[3]这个就代表第i行的第4列。
再看看pyExcelerator，这个用起来有点别扭：
sheets = parse_xls('result.xls')
先打开一个表格，sheets是一个list，包含了所有表格的内容，每一项就是一个sheet，而每个sheet是二元tuple，第一个是该sheet的名字，第二个是一个dict，dict的key是一个二元组，表示单元格的坐标，如(0,0)，第一行第一列。
从上面的分析中可以得出要访问Excel中第一个sheet的第一行第一列元素需要：
sheets[0][1][(0,0)]
pyExcelerator也不能得到行列数。
写文件也比较简单：
wb = Workbook()
ws = wb.add_sheet('result')
ws.write(0,0,“hello”)
wb.save('result.xls')
就不解释了:-)
写文件时需要注意直接写Unicode内容进去，而不要写编码过的内容。
本文来源于可可熊的窝 http://cocobear.info/blog , 原文地址：