一、excel编程怎么做
Excel编程是个简单而复杂的课题，具体介绍如下：
1.说简单，是因为录制宏就能实现重复简单的功能。通过录制宏功能，能有效解决很多Excel表格中繁琐而重复的操作。
2.说复杂，是因为要深入解决问题则需要系统掌握VBA编程。在理解录制宏的基础上，深入系统的学习掌握VBA的编程技巧，能有效的做好VBA的二次开发，解决曾经以为用Excel不能解决的诸多问题。而学习VBA的教程比较多，较为经典的视频教程可以选择兰色幻想的VBA80集视频教程，也可以选择腾讯课堂VBA的相关教程学习或是购买相关书籍。
二、怎样使用Excel编程
我用VB连过。
下面是我当时写的一个函数，从SQLServer2000中导出查询结果的。调用就可以了。记得在工程－－》引用 中添加Excel的引用 Microsoft Excel 11.0 Object Library
（可能是不同的版本）
另外把连接字符串改一下。
如果你要用到其他方面，可以加我285512334
Public Function ExporToExcel(strOpen As String, str_name As String)
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'& 功能：导出数据到EXCEL
'& 用法：ExporToExcel(sql查询字符串，导出表的名称)
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Dim adoRs As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable
Dim strcn_out As String
strcn_out = "Provider=SQLOLEDB.1;PeRs_tongjiist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=st_info;Data Source=(local)"
With adoRs
If .State = 1 Then
.Close
End If
.ActiveConnection = strcn_out
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Source = strOpen
.Open
End With
With adoRs
If .RecordCount < 1 Then
MsgboxName = MsgBox("没有记录！", vbOKOnly, "信息提示")
Exit Function
End If
Irowcount = .RecordCount '记录总数
Icolcount = .Fields.Count '字段总数
End With
Set xlapp = CreateObject("Excel.Application")
Set xlbook = Nothing
Set xlsheet = Nothing
xlapp.Caption = str_name
Set xlbook = xlapp.Workbooks().Add
Set xlsheet = xlbook.Worksheets("sheet1")
xlapp.Visible = True
Set xlQuery = xlsheet.QueryTables.Add(adoRs, xlsheet.Range("a1")) '添加查询语句，导入EXCEL数据
With xlQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
End With
xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh
With xlsheet
With .Range(.Cells(1, 1), .Cells(1, Icolcount))
.Font.Name = "宋体" '设标题为黑体字
.Font.Bold = True '标题字体加粗
'.Interior.Color = &HC0FFC0 '设定第一行颜色
.ColumnWidth = 18
End With
With .Range(.Cells(1, 2), .Cells(1, 2)) '设定列宽度
.ColumnWidth = 10
End With
With .Range(.Cells(1, 3), .Cells(1, 3))
.ColumnWidth = 20
End With
With .Range(.Cells(1, 5), .Cells(1, 5))
.ColumnWidth = 10
End With
With .Range(.Cells(1, 6), .Cells(1, 6))
.ColumnWidth = 6
End With
With .Range(.Cells(2, 1), .Cells(Irowcount + 1, 1))
.Font.Name = "楷体"
'.Interior.Color = &H80FFFF '第一列颜色
End With
End With
On Error GoTo yes
'第一种方法：调用保存函数xlApp.SaveWorkspace
'第二种方法，后台saveas，指定目录
Position = App.Path & "统计数据存档" & str_name & ".xls"
xlbook.SaveAs Position
'第三种方法，用户关闭时，自己保存
xlapp.Application.Visible = True
yes:
Set xlapp = Nothing '交还控制给Excel
Set xlbook = Nothing
Set xlsheet = Nothing
End Function
三、如何在Excel中使用VBA编程
1、首先要打开开发工具选项。详见百度经验《如何打开Excel的“开发工具”工具栏》?picindex=1开发工具栏里面有visualbasic、宏、录制宏等按钮。点击visualbasic就可以进行编程了。2、技巧。VBA语言方便易学，但在excel的控件名称有很多是初学者不熟悉的，所以要借用录制宏功能，由系统帮我们编写大量的代码，我们只做代码优化的工作。录制结束后点开宏，查看这个宏记录的vba代码。3、使用相对引用功能很重要。对于循环执行的代码，单元格引用的时候就不是固定的range("A1")，而是ActiveCell.Offset(1,1).range("A1")，这样用变量替换其中数值，就可以循环执行某些语句了。
