vb点虐 更改工作表名 vb中的name在哪儿改

vb6.0改Excel的工作表名

1：读取。

成都创新互联公司主要从事成都网站设计、成都网站建设、外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务中宁,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

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

vb6修改excel工作表名称

假设你已经存有：Excel文件，名为“文件名.xls”，保存在你的vb工程同一个文件夹里。

首先通过菜单：[工程]--[引用]，勾选：

Microsoft Excel XX.X Object Library

代码如下:

Private Sub Command1_Click()

Dim excel_App As Excel.Application

Dim excel_Book As Excel.Workbook

Dim excel_sheet As Excel.Worksheet

'启动Excel

Set excel_App = CreateObject("Excel.Application")

'设置Excel为可见

excel_App.Visible = False

'打开文件

Set excel_Book = excel_App.Workbooks.Open(App.Path "\文件名.XLS")

excel_Book.Sheets("Sheet1").Name = "abc"

'''''''''''''''''''''''''''''''''''

'关闭Excel文件

Set excel_sheet = Nothing

excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。

Set excel_Book = Nothing

excel_App.Quit

Set excel_App = Nothing

End Sub

用vb给excel表增加工作簿，并修改其名称

工作表事件.放在ThisWorkbook的VBE代码窗口

Private Sub Workbook_Open()

Dim shname As String, sh As Worksheet

shname = Sheets(Sheets.Count).Name

If shname Date Then

Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

sh.Name = Date

End If

End Sub

VBA怎样修改同目录下的工作薄名称

Sub 修改本工作表名()

'

' 修改本工作表名

' 将原文件另存为包含当前日期的文件名，并删除源文件

If Dir(ThisWorkbook.Path "\报表7月3日.xlsm") "" Then

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path "\报表" Format(Now, "m月d日") ".xlsm"

Kill ThisWorkbook.Path "\报表7月3日.xlsm"

End If

End Sub