excel脚本教程
怎么在Excel中运行python脚本？这个问题由来已久，很多pythoner都希望直接用python控制Excel，但是只能从外部调用，有没有一个VBA的东西可以直接在Excel中运行呢？答案是有，DataNitro就是这悄如桥么一个东西，看看下面橡轮Excel中的界面，他就是了，可以直接点击‘run'来运行一个Python脚本。下面我们来看看它是如何安装与配置的。
先安装python2.7，其他版本不知道行不行，但是这个肯定行，然后配置环境变量，保证python在该环境中，打开开始菜单，找到计算机，然后右键单击它，选择【属性】
找到高级系统设置
找到环境变量，点击该按钮，打开环境变量设置窗口
找到Path系统变量，然后点击【编辑】
在这里，确保python的安装目录在，没有的话，添加进去
下面就可以安装该插件了，去官网下载启猛一个；或者网络一下，各大下载网站都有
双击即可安装，安装过程就是一路点击’下一步，不过有一步需要注意
在这里，不要勾选python，如果通过这种方式安装python，你原先安装的python就无法使用了
最后安装完成，打开Excel就可以看到datanitro了
‘贰’ 在excel中如果该行没有值则隐藏在脚本中如何实现
在Excel中如掘虚激果该行没有值则隐藏，建议方法如下：
- 依次单击“开发工具”选项卡-“录制宏”；
- 依次单击“开始”选项卡誉弊-“筛选”；
- 筛选某一列不为空的，再按Alt+F11组合键进入VBA编辑调整部分判袜代码。
‘叁’ 如何用EXCEL的VBA脚本编写程序删除空行和空列
这段VBA代码的作用是删除Excel工作簿中所有工作表中的空行和空列。代码包含了三个子过程：
Sub 删除所有空行和空列()
这个子过程首先遍历工作簿中的每一个工作表。对于每一个工作表，它执行以下操作：取消合并单元格，以便在删除空行和空列时不会留下空白的单元格。
调用 DeleteEmptyRows 子过程，删除所有空行。
调用 DeleteEmptyColumns 子过程，删除所有空列。
自动调整行高和列宽，以适应数据。
Sub DeleteEmptyRows()
这个子过程用于删除工作表中的空行。它首先确定最后一行的行号，然后从最后一行卜橡开始向上遍历，逐行检查该行是否为空行。如果该行为空行，则删除该行。通过使用 CountA 函数来确定行中是否存在任何非空单元格。Sub DeleteEmptyColumns()
这个子过程用于删除液嫌工作表中的空列闹弊手。它首先确定最后一列的列号，然后从最后一列开始向左遍历，逐列检查该列是否为空列。如果该列为空列，则删除该列。也是通过使用 CountA 函数来确定列中是否存在任何非空单元格。
需要注意的是，由于该代码对每个工作表都进行了操作，如果工作簿中有大量工作表或者数据量很大，可能会影响代码的执行效率。
‘肆’ 如何用EXCEL的VBA脚本编写程序求和
按alt+f11进vba编辑，双击thisworkbook，贴上芹纳陪以下代嫌蠢码
Option Explicit
Sub color()
Dim isnum As Boolean
Dim c, r, i, j As Integer
i = 1
j = 1
' 循环选择的每一行。
For r = 1 To Selection.Rows.Count
' 循环选择的每一列。
For c = 2 To Selection.Columns.Count
If Selection.Cells(r, c).Text = Selection.Cells(r, c - 1).Text Then
i = i + 1
Else
Cells(Selection.Cells(r, c).Row, Selection.Columns.Count + j).Value = i
i = 1
j = j + 1
End If
'
Selection.Cells(r, c).Interior.ColorIndex = ci
Next c
Cells(Selection.Cells(r, c).Row, Selection.Columns.Count + j).Value = i
i = 1
j = 1
Next r
End Sub
关闭vba后，选中数值茄含范围，按Alt+f8执行宏
‘伍’ 在excel中怎么插入脚本
添加一个BUTTON,在其上点击右键，倒数第三个选项，就可以编写他的CLICK等脚本事件
‘陆’ 如何用EXCEL的VBA脚本编写程序删除空行和空列
方法是：选择包含需要删除的数据区域，比如a2：d10，然后按f5键，打开“定位”对话框，单击“定位条件”，打开“定位条件”对话框，选择“空值”，可以批量选择空行，然后单击右键，选择删除即可。
excel批量删除空行方法二：
我们可以在旁边的空白列输入1，然后下拉，作为辅助列。然后开启“筛选”，筛选“空白”，在筛选状态删除这些空白行，最后关闭筛选。
excel批量删除空行方法三：
如果工作表中有大量的空行，可以使用vba代码实现。方法是：按alt+f11，打开vbe编辑器，插入——模块，复制下面的代码，然后按f5键运行。
sub
批量删除空行()
dim
lastrow
as
long
dim
r
as
long
lastrow
=
activesheet.usedrange.row
-
1
+
activesheet.usedrange.rows.count
application.screenupdating
=
false
for
r
=
lastrow
to
1
step
-1
if
application.worksheetfunction.counta(rows(r))
=
0
then
rows(r).delete
next
r
application.screenupdating
=
true
end
sub
‘柒’ 怎样在Excel中使用python脚本
一、读excel表
读excel要用到xlrd模块，官网安装（http://pypi.python.org/pypi/xlrd）。然后就可以跟着里面的例子稍微试一下就知道怎么用了。大概的流程是这样的：
1、导入模块
复制代码代码如下:
import xlrd
2、打开Excel文件读取数据
复制代码代码如下:
data = xlrd.open_workbook('excel.xls')
3、获取一个工作表
① table = data.sheets()[0] #通过索引顺序获取
② table = data.sheet_by_index(0) #通过索引顺序获取
③ table = data.sheet_by_name(u'Sheet1')#通过名称获取
4、获取整行和整列的值（返回数组）
复制代码代码如下:
table.row_values(i)
table.col_values(i)
5、获取行数和列数
复制代码代码如下:
table.nrows
table.ncols
6、获取单元格
复制代码代码如下:
table.cell(0,0).value
table.cell(2,3).value
就我自己使用的时候觉得还是获取cell最有用，这就相当于是给了你一个二维数组，余下你就可以想怎么干就怎么干了。得益于这个十分好用的库代码很是简洁。但是还是有若干坑的存在导致话了一定时间探索。现在列出来供后人参考吧：
1、首先就是我的统计是根据姓名统计各个表中的信息的，但是调试发现不同的表中各个名字貌似不能够匹配，开始怀疑过编码问题，不过后来发现是因为空格。因为在excel中输入的时候很可能会顺手在一些名字后面加上几个空格或是tab键，这样看起来没什么差别，但是程序处理的时候这就是两个完全不同的串了。我的解决方法是给每个获取的字符串都加上strip（）处理一下。效果良好
2、还是字符串的匹配，在判断某个单元格中的字符串（中文）是否等于我所给出的的时候发现无法匹配，并且各种unicode也不太奏效，网络过一些解决方案，但是都比较复杂或是没用。最后我采用了一个比较变通的方式：直接从excel中获取我想要的值再进行比较，效果是不错就是通用行不太好，个呢不能问题还没解决。
二、写excel表
写excel表要用到xlwt模块，官网下载（http://pypi.python.org/pypi/xlwt）。大致使用流程如下：
1、导入模块
复制代码代码如下:
import xlwt
2、创建workbook（其实就是excel，后来保存一下就行）
复制代码代码如下:
workbook = xlwt.Workbook(encoding = 'ascii')
3、创建表
复制代码代码如下:
worksheet = workbook.add_sheet('My Worksheet')
4、往单元格内写入内容
复制代码代码如下:
worksheet.write(0, 0, label = 'Row 0, Column 0 Value')
5、保存
复制代码代码如下:
workbook.save('Excel_Workbook.xls')
由于我的需求比较简单，所以这上面没遇到什么问题，唯一的就是建议还是用ascii编码，不然可能会有一些诡异的现象。
当然xlwt功能远远不止这些，他甚至可以设置各种样式之类的。附上一点例子
复制代码代码如下:
Examples Generating Excel Documents Using Python's xlwt
Here are some simple examples using Python's xlwt library to dynamically generate Excel documents.
Please note a useful alternative may be ezodf, which allows you to generate ODS (Open Document Spreadsheet) files for LibreOffice / OpenOffice. You can check them out at:http://packages.python.org/ezodf/index.html
The Simplest Example
import xlwt
workbook = xlwt.Workbook(encoding = 'ascii')
worksheet = workbook.add_sheet('My Worksheet')
worksheet.write(0, 0, label = 'Row 0, Column 0 Value')
workbook.save('Excel_Workbook.xls')
Formatting the Contents of a Cell
import xlwt
workbook = xlwt.Workbook(encoding = 'ascii')
worksheet = workbook.add_sheet('My Worksheet')
font = xlwt.Font() # Create the Font
font.name = 'Times New Roman'
font.bold = True
font.underline = True
font.italic = True
style = xlwt.XFStyle() # Create the Style
style.font = font # Apply the Font to the Style
worksheet.write(0, 0, label = 'Unformatted value')
worksheet.write(1, 0, label = 'Formatted value', style) # Apply the Style to the Cell
workbook.save('Excel_Workbook.xls')
Attributes of the Font Object
font.bold = True # May be: True, False
font.italic = True # May be: True, False
font.struck_out = True # May be: True, False
font.underline = xlwt.Font.UNDERLINE_SINGLE # May be: UNDERLINE_NONE, UNDERLINE_SINGLE, UNDERLINE_SINGLE_ACC, UNDERLINE_DOUBLE, UNDERLINE_DOUBLE_ACC
font.escapement = xlwt.Font.ESCAPEMENT_SUPERSCRIPT # May be: ESCAPEMENT_NONE, ESCAPEMENT_SUPERSCRIPT, ESCAPEMENT_SUBSCRIPT
font.family = xlwt.Font.FAMILY_ROMAN # May be: FAMILY_NONE, FAMILY_ROMAN, FAMILY_SWISS, FAMILY_MODERN, FAMILY_SCRIPT, FAMILY_DECORATIVE
font.charset = xlwt.Font.CHARSET_ANSI_LATIN # May be: CHARSET_ANSI_LATIN, CHARSET_SYS_DEFAULT, CHARSET_SYMBOL, CHARSET_APPLE_ROMAN, CHARSET_ANSI_JAP_SHIFT_JIS, CHARSET_ANSI_KOR_HANGUL, CHARSET_ANSI_KOR_JOHAB, CHARSET_ANSI_CHINESE_GBK, CHARSET_ANSI_CHINESE_BIG5, CHARSET_ANSI_GREEK, CHARSET_ANSI_TURKISH, CHARSET_ANSI_VIETNAMESE, CHARSET_ANSI_HEBREW, CHARSET_ANSI_ARABIC, CHARSET_ANSI_BALTIC, CHARSET_ANSI_CYRILLIC, CHARSET_ANSI_THAI, CHARSET_ANSI_LATIN_II, CHARSET_OEM_LATIN_I
font.colour_index = ?
font.get_biff_record = ?
font.height = 0x00C8 # C8 in Hex (in decimal) = 10 points in height.
font.name = ?
font.outline = ?
font.shadow = ?
Setting the Width of a Cell
import xltw
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
worksheet.write(0, 0, 'My Cell Contents')
worksheet.col(0).width = 3333 # 3333 = 1" (one inch).
workbook.save('Excel_Workbook.xls')
Entering a Date into a Cell
import xlwt
import datetime
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
style = xlwt.XFStyle()
style.num_format_str = 'M/D/YY' # Other options: D-MMM-YY, D-MMM, MMM-YY, h:mm, h:mm:ss, h:mm, h:mm:ss, M/D/YY h:mm, mm:ss, [h]:mm:ss, mm:ss.0
worksheet.write(0, 0, datetime.datetime.now(), style)
workbook.save('Excel_Workbook.xls')
Adding a Formula to a Cell
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
worksheet.write(0, 0, 5) # Outputs 5
worksheet.write(0, 1, 2) # Outputs 2
worksheet.write(1, 0, xlwt.Formula('A1*B1')) # Should output "10" (A1[5] * A2[2])
worksheet.write(1, 1, xlwt.Formula('SUM(A1,B1)')) # Should output "7" (A1[5] + A2[2])
workbook.save('Excel_Workbook.xls')
Adding a Hyperlink to a Cell
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
worksheet.write(0, 0, xlwt.Formula('HYPERLINK("http://www.google.com";"Google")')) # Outputs the text "Google" linking to http://www.google.com
workbook.save('Excel_Workbook.xls')
Merging Columns and Rows
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
worksheet.write_merge(0, 0, 0, 3, 'First Merge') # Merges row 0's columns 0 through 3.
font = xlwt.Font() # Create Font
font.bold = True # Set font to Bold
style = xlwt.XFStyle() # Create Style
style.font = font # Add Bold Font to Style
worksheet.write_merge(1, 2, 0, 3, 'Second Merge', style) # Merges row 1 through 2's columns 0 through 3.
workbook.save('Excel_Workbook.xls')
Setting the Alignment for the Contents of a Cell
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
alignment = xlwt.Alignment() # Create Alignment
alignment.horz = xlwt.Alignment.HORZ_CENTER # May be: HORZ_GENERAL, HORZ_LEFT, HORZ_CENTER, HORZ_RIGHT, HORZ_FILLED, HORZ_JUSTIFIED, HORZ_CENTER_ACROSS_SEL, HORZ_DISTRIBUTED
alignment.vert = xlwt.Alignment.VERT_CENTER # May be: VERT_TOP, VERT_CENTER, VERT_BOTTOM, VERT_JUSTIFIED, VERT_DISTRIBUTED
style = xlwt.XFStyle() # Create Style
style.alignment = alignment # Add Alignment to Style
worksheet.write(0, 0, 'Cell Contents', style)
workbook.save('Excel_Workbook.xls')
Adding Borders to a Cell
# Please note: While I was able to find these constants within the source code, on my system (using LibreOffice,) I was only presented with a solid line, varying from thin to thick; no dotted or dashed lines.
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
borders = xlwt.Borders() # Create Borders
borders.left = xlwt.Borders.DASHED # May be: NO_LINE, THIN, MEDIUM, DASHED, DOTTED, THICK, DOUBLE, HAIR, MEDIUM_DASHED, THIN_DASH_DOTTED, MEDIUM_DASH_DOTTED, THIN_DASH_DOT_DOTTED, MEDIUM_DASH_DOT_DOTTED, SLANTED_MEDIUM_DASH_DOTTED, or 0x00 through 0x0D.
borders.right = xlwt.Borders.DASHED
borders.top = xlwt.Borders.DASHED
borders.bottom = xlwt.Borders.DASHED
borders.left_colour = 0x40
borders.right_colour = 0x40
borders.top_colour = 0x40
borders.bottom_colour = 0x40
style = xlwt.XFStyle() # Create Style
style.borders = borders # Add Borders to Style
worksheet.write(0, 0, 'Cell Contents', style)
workbook.save('Excel_Workbook.xls')
Setting the Background Color of a Cell
import xlwt
workbook = xlwt.Workbook()
worksheet = workbook.add_sheet('My Sheet')
pattern = xlwt.Pattern() # Create the Pattern
pattern.pattern = xlwt.Pattern.SOLID_PATTERN # May be: NO_PATTERN, SOLID_PATTERN, or 0x00 through 0x12
pattern.pattern_fore_colour = 5 # May be: 8 through 63. 0 = Black, 1 = White, 2 = Red, 3 = Green, 4 = Blue, 5 = Yellow, 6 = Magenta, 7 = Cyan, 16 = Maroon, 17 = Dark Green, 18 = Dark Blue, 19 = Dark Yellow , almost brown), 20 = Dark Magenta, 21 = Teal, 22 = Light Gray, 23 = Dark Gray, the list goes on...
style = xlwt.XFStyle() # Create the Pattern
style.pattern = pattern # Add Pattern to Style
worksheet.write(0, 0, 'Cell Contents', style)
workbook.save('Excel_Workbook.xls')
TODO: Things Left to Document
- Panes -- separate views which are always in view
- Border Colors (documented above, but not taking effect as it should)
- Border Widths (document above, but not working as expected)
- Protection
- Row Styles
- Zoom / Manification
- WS Props?
Source Code for reference available at: https://secure.simplistix.co.uk/svn/xlwt/trunk/xlwt/
‘捌’ 怎么制作excel按键精灵脚本
方法/步骤
1
首先来建立一个新的Excel文档，在桌面上点击右键，选择【新建】-【Excel工作表】，命名为【新手学员】。
2
现在这个新Excel文档是空白的，我们接下来会通过按键精灵的脚本来打开并写入一些数据。
3
打开按键精灵软件，点击【新建】，进入我的脚本界面，再点击进入【全部命令】。
在【全部命令】中选择【插件命令】-【office办公文档插件】-【打开Excel文档】。
在命令的下面可以看到命令的详细设置，点击【路径】。
在弹出窗口中选择【新手学员】的Excel文档，点击打开。
可以在命令参数中看到引用的文档，点击插入就可以插入对应的命令脚本。
继续在文档中写入新的数据，选择命令【writeXls 写入Excel文档单元格】，选择对应的单元格的行和列，输入要写入单元格的内容【"序号"】，点击插入。
在脚本界面可以看到新插入的代码。
根据类似的格式，可以添加其它代码，一共写入3行4列的单元格内容。
最后选择【closeXls 关闭文档】，点击插入对应的代码。
修改脚本属性的描述和保存的脚本文件名。保存脚本后按【F10】进行脚本调试。
脚本执行完成后，再次打开这个Excel文档，可以看到刚才设置的数据已经成功写入了。
‘玖’ excel中VBA有哪些作用哪里有教程啊
分类: 电脑/网络 >> 软件
解析:
阐述了当前自动化软件的技术特点和发展趋势，并介绍了在iFIX自动化软件中使用VBA访问历史和实时数据的机制。通过一段使用VBA语言编写的程序，实现向Excel输出历史数据，生成历史报表的实例，说明了VBA语言在自动化软件中的应用。
1、自动化软件的发展趋势
自动化软件主要是指那些为用户提供人机操作界面(HMI)的开发和运行环境的软件，有些软件还能够提供回路控制功能，用户可以实现基于PC的控制方案。自动化软件应当具备如下的主要功能及特征：工业过程的动态可视化；数据采集和管理；过程监控和报警；报表和操作记录功能；系统安全等级化管理；为其他企业级程序提供实时和历史数据；简单的回路调节；批量控制等。
近年来，随着计算机和网络技术的发展与应用，自动化软件的发展也呈现如下的发展趋势。
1.1 开放和标准化
近年来，许多自动化软件带段厂商把通用的标准化编程语言，如微软的VBA(Visual Basic for Applications)集成在自己软件的开发环境中。VBA与VB(Visual Basic)极为相似，只是不能编译成可执行文件，这就为众多熟悉VB的用户提供了一个编程环境。用户在VBA环境中编写程序，可以使用DDE，ActiveX控件，ODBC，COM／DCOM 等技术使得自动化软件演变成开放的软件平台，在软件功能不能满足用户特殊需要时，用户可以根据自己的需要进行二次开发。
同时，OPC(OLE for Process Contro1)技术也是自动化软件的一个热点。OPC是Microsoft公司的对象链接和嵌入OLE／COM技术在过程控制方面的应用，为工业控制领域提供了标准的数据访问机制。
1.2 网络化
随着Inter／Intra的普及，自动化软件又集成了基于TCP／IP协议的网络功能，使其成为协作生产制造过程中的核心系统，实现了企业网络环境下实时数据的管理、实时流程查看、实时趋势浏览、报警记录与查看、报表数据存储、历史趋势存储与查看、生产过程报表生成、生产统计报表生成等功能，从而实现过程控制系统与信息系统的网络集成。用户可以通过IE浏览器登录自动化软件的Web Server服务器，实现远程浏览生产过程。
1.3 管理控制一体化
生产管理信息系统是大型企业重点建设的项目，随着大型数据库技术的日益成熟，自动化软件成为全厂范围内信息收集和集成的工具。在未来企业的信息化进程中，自动化软件将成为硬件设备与生产管理信息系统的桥梁。因为自动化软件能为生产管理信息系统提供生产过程的实时和历史数据，而生产管理信息系统叉对生产过程有着指导作用。
2、VBA在自动化软件中的应用
下面，以iFIX软件为例，通过VBA编写的脚本程序，实现向Excel输出历史数据的实例来具体说明VBA在自动化软件中的应用。
2.1 iFIX软件简介
iFIX软件是GE自动化软件产品家族中的一个基于Windows的HMI／SCADA组件。iFIX是基于开放的和组件技术的产品，专为在工厂级和猛陵商业系统之间提供易于集成和协同工作的设计环境。iFIX中还加入了OPC，VBA，ActiveX，DDE，ODBC等工业标准化技术，可以提供一个强大的开发环境，实现用户的特殊需求。
2.2 iFIX软件中VBA的应用实例
a) iFIX的数据访问机制。iFIX中的数据分为实时数据库和历史数据库，这2种数据库的访问方法不同，对于实时数据库，iFIX的VBA项目中提供了各种iFIX对象，利用这些对象，就可以方便地在VBA中实现对iFIX的控制功能；对于历史数据库，可以访问关系数据库来获得历史数据。对于这些关系数据库，各种编程语言大多都提供了相应的数据控件来访问，在VBA 中，通常采用ADO对象模型来访问这些历史数据库。
b) ADO Data控件使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合ODBC规范的数据源。
c) 利用VBA实现Excel报表。通过编写VBA脚本程序，可以实现向Excel输出历史数据，生成Excel报表。其触发方式有2种：一种是蠢知誉通过iFIX的调度程序，以固定的时间或事件来启动VBA脚本程序，生成报表；还可以直接使用VBA生成用户操作界面，用户可以输入开始时间，间隔等参数，由用户点击按钮启动VBA脚本程序，生成报表。这2种方式在程序上大同小异，其主要部分VBA脚本程序如下。其中程序将历史数据、时间、TAG名称等参数送到Excel的Sheet2中，用户可以将Sheet1作为报表版面，通过编辑版面格式，引用Sheet2数据等方式，形成最终报表。
根据用户要求定义所要查询的时间段和变量名称
Dim MyDate，StartTime，EndTime As String Dim Tagl，Tag2 As String
Tagl＝“TIC101．F_CV”
Tag2＝“TIC102．F_CV”
MyDate＝Format(Now()，“yyyy-mm—dd”)
StartTime＝MyDate&“ ”& “0:00:00”
EndTime＝MyDate&“ ”& “23:OO:OO”
使用ADO对象来访问ODBC数据库，用SQL语盲查询历史数据
strQuerySamp＝“Select Datetime，Value，Tag From Fix Where Mode＝‘Sample’and (TAG＝‘ “＆ Tagl & ”‘or TAG=’”& Tag2 ) and Interval＝‘ 01:00:00’and (Datetime) ＞＝{ts‘“& StartTime &”’ )and Datetime＜＝{ts‘“ EndTime & ”’})”
Dim ADO As New ADODB．Connection
Dim rsADO As Recordset
Set ADO=New ADODB．Connection
ADO．ConnectionString＝“ DSN= FIX Dynamics Historical Data；UID＝sa；PWD= ；”
AD0．Open “FIX Dynamics Historical Data”，“sa”，“”
Set rsADO— New ADODB．Recordset
rsADO．Open strQuerySamp，ADO，adOpenForwardOnly，adLockBatchOptimistic
调用Excel，将历史数据写入打开的Excel报表文件
Dim 0utReport File，InReportFile As String
Set Intyexcel= New Excel.Application
InReportFile-”C：＼data＼HisReport“
Intyexce1．Workbooks．Open InReportFile &“．XLS”
Intyexce1．Sheets(“Sheet2”)．Select
While rsADO．EOF < > True
With Intyexce1．Worksheets(2)
For C＝0 To Items
If rsADO(c)= “ ”Then ．Cells(r，C + 1)．Value= rsADO(c)
Next C
r； r+ 1
rsADO．M oveNex
End With
W end
关闭Excel，保存报表文件
OutReportFile=InRep0rtFile &“_”& MyDate
Intyexce1． ActiveW orkbook． SaveAs OutReportFile
Intyexce1．Quit
Set Intyexcel=Nothing
Set ADO==Nothing
3、VBA应用的注意事项与展望
集成了VBA编程语言的自动化软件，变成了标准化的、开放的软件开发平台，这使得自动化软件本身具有了无限的开放性和可扩展性。但同时也带来一些问题。首先，开发人员要确保VBA脚本程序的可靠和精简。VBA程序要经过严格和全面的测试，并要编写出错处理程序，保证生产过程控制的万无一失。其次，目前VBA程序还不能编写多线程程序，开发人员要选择恰当的触发方式，避免发生冲突。
总之，随着最终用户变得更加成熟以及对自动化软件的更加了解，他们将通过编写程序的方式来针对其过程及系统进行更多的定制，以便能够满足其需求。自动化软件将不断为用户提供这样的安全可靠的技术手段。
参考文献
[1] 刘恩涛，赵耀峰．Visual Basic6．0编程技术与实例分析，北京：中国水利水电出版杜，1999．455～456，472～478，479～482
[2] 刘炳文，张绅．Visual Basic程序设计——数据库篇．北京：人民邮电出版社。1999．196～198，224～232，248～251
详细教程：whzx.tzr/read.php?wid=455
‘拾’ 如何将Excel中表结构数据自动生成SQL脚本的方法
一： 在本地PC新建一个Excel文件（例如：excel2007）
准备工作，左键选择excel文本左上角的图标，选择“Excle选项”。1. 点击“信任中心”->“信任中心设置”->“宏设置”->选择“启用所有宏...”选项。“开发人员宏设置”选项也勾选上。 2. 点击“信任中心”->“信任中心设置”->选择“个人信息选项”，将“文档特定设置”上面默认选择去掉，避免在保存脚本时报错。
二： 在本地PC新建一个excel文件（例如： D:\testdate.xlsx）
按快捷键“ALT + F11”进入宏编辑，输入如下代码后保存。summary()为目标生成代码，SQL()为生成SQL脚本文件代码，按条件生成SQL的脚本如下：
Sub summary()
Dim i As Integer
i = 2
ThisWorkbook.Worksheets(1).Columns(2).Clear
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> " " Then
ThisWorkbook.Worksheets(1).Cells(i, 2).Value = sh.Name
ThisWorkbook.Worksheets(1).Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
sh.Name + "!A1", TextToDisplay:=sh.Name
i = i + 1
End If
Next sh
ThisWorkbook.Worksheets(1).Cells.Select
With Selection.Font
.Name = "目录"
.Size = 9
.Strikethrough = False
.Superscript. = False
.Subscript. = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Sub SQL()
Dim i As Integer
i = 1
Dim ADO_Stream As Object
Dim strSQL, strDelSQL As String
Dim strTblName As String
Dim col As Long
Dim row As Long
Dim str As String
Dim PK As String
Dim cnt As Integer
PK = "PK"
Dim rowcounts As Long
rowcounts = 0
Dim filecount As Long
filecount = 0
Set ADO_Stream = CreateObject("ADODB.Stream")
ADO_Stream.Type = 2
ADO_Stream.Mode = 3
ADO_Stream.Charset = "unicode"
ADO_Stream.Open
Dim checkType As String
For Each sh In ThisWorkbook.Worksheets
cnt = 0
If sh.Name <> " " And InStr(sh.Name, "template") = 0 Then
strTblName = sh.Cells(1, 2).Value
rowcounts = 1
'Insert SQL
row = 6
Do While sh.Cells(row, 1).Value <> ""
strDelSQL = "delete from " + strTblName + " where "
strSQL = "Insert into " + strTblName + " ("
col = 1
Do While sh.Cells(3, col).Value <> ""
If col <> 1 Then
strSQL = strSQL + ", "
End If
strSQL = strSQL + sh.Cells(3, col).Value
col = col + 1
Loop
strSQL = strSQL + ") VALUES ("
col = 1
Do While sh.Cells(3, col).Value <> ""
str = Trim(CStr(sh.Cells(row, col).Value))
If InStr(Trim(CStr(sh.Cells(2, col).Value)), PK) <> 0 Then
If cnt > 0 Then
strDelSQL = strDelSQL + " and "
End If
strDelSQL = strDelSQL + Trim(CStr(sh.Cells(3, col).Value)) + " = '" + str + "'"
cnt = cnt + 1
End If
If col <> 1 Then
strSQL = strSQL + ", "
End If
If (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Integer") = 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Decimal") = 0) And ((InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") = 0) Or _
((Len(str) > 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0))) Then
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
ElseIf InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0 Then
str = "to_date('" + str + "','yyyy-mm-dd hh24:mi:ss')"
Else
str = "'" + str + "'"
End If
strSQL = strSQL + str
ElseIf (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0) Then
strSQL = strSQL + "NULL"
Else
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
End If
strSQL = strSQL + str
End If
col = col + 1
Loop
strDelSQL = strDelSQL + ";" + vbCrLf
ADO_Stream.WriteText strDelSQL
strSQL = strSQL + ");" + vbCrLf
ADO_Stream.WriteText strSQL
row = row + 1
Loop
End If
i = i + 1
rowcounts = 0
filecount = 0
Next sh
ADO_Stream.SaveToFile ThisWorkbook.Path & "\MstSQL(delete by condition).txt", 2
ADO_Stream.Close
Set ADO_Stream = Nothing
End Sub
点击“保存”宏脚本，主要的一步完成。
三： 在excel文件（test.xlsx）的首页创建两个图标，分别选择右键指定宏，一个指定上面的summary(),一个指定上面的SQL()。然后就可以在后续的sheet页创建自己需要生成SQL脚本的表结构名称了，记得每个sheet页面对应一个表结构及数据，使用方法如下：
A,将需要更新的对象表数据整个sheet拷进工具中，数据只保留需要更新的数据。
B,在第2行标出主键字段，填上“PK”即可。
看看代码
http://www.51testing.com/html/41/195041-831346.html