vb6.0改Excel的工作表名

Posted 2023-05-15

用vB6.0的代码如果现实对现有的工作表名进行修改
比如现有的工作表名是2011-01-31改成2011
有没有办法修改

1：读取。

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub

2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub

4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。

2：写入。
Excel导入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub
参考技术A Private Sub Command1_Click()
Dim excel_app As Object
Dim Filename1 As String, FilePath As String

Set excel_app = CreateObject("Excel.Application")
excel_app.Workbooks.Open ("c:\book1.xls")
excel_app.sheets("2011-01-31").Name = "2011"
excel_app.ActiveWorkBook.Save
excel_app.quit

End Sub

python处理excel完整版

参考技术A

**1.2.1 新建保存工作簿(覆盖创建）

获取当前活动工作表的：

以索引值方式获取工作表：

以工作表名获取： wb[\'工作表名\']，注意，此表达方式为切片显示，所以没有成员提示。很少用

循环工作表：很好用，一般用sheetnames

获取所有工作表名：wb.sheetnames

获取指定工作表名

修改工作表名称

新建工作表时的默认工作表名：

workbook.remove(工作表)

A1 表示法： 工作表[\'A1\'] ，R1C1 表示法：工作表.cell(行号,列号)

2.工作表[\'起始行号\': \'结束行号\']或者工作表[\'起始行号: 结束行号\']，此方法是按行读取的数据。

3.工作表[\'起始列号\': \'结束列号\']或者工作表[\'起始列号: 结束列号\']，
此方法是按列读取的数据。

4.获取（按行）指定工作表所有已用数据：
list(workbook.worksheets[索引值].values)

按行求和（方法 1）

按行求和（方法 ）

按列统计平均值

按行获取工作表使用区域数据：worksheet.rows

按列获取工作表使用区域数据：worksheet.columns
获取工作表中最小行号：worksheet.min_row
获取工作表中最小列号：worksheet.min_column
获取工作表中最大行号：worksheet.max_row
获取工作表中最大列号：worksheet.max_column
获取单元格的行号：cell.row
获取单元格的列号：cell.column iter
方法获取指定区域：
1.按行获取指定工作表单元格区域：worksheet.iter_rows(……)
2.按列获取指定工作表单元格区域：worksheet.iter_cols(……)
可以通过 min_row、min_col、max_col、max_row 这几个参数进行单元格区域的控制

A1 表示法：工作表[\'A1\']=值，R1C1 表示法：工作表.cell(行号,列号,值)

在最后一行写入数据：工作表.append(列表)

1.10.2 实例应用（九九乘法表）

最后加一列写优秀