![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel VBA
文章平均质量分 76
JmLei
IBM AS400/RPGLE/CLLE & Delphi
Email: David_XH#126.com
展开
-
VBA 控制 Excel 例子
Private Sub Workbook_open()--- Define variables. Dim xlsbook As Excel.Workbook Dim xlsbookx As Excel.Workbook Dim filen As String Dim strDate, strCust, strDateN, strCustN,原创 2009-04-09 16:19:00 · 897 阅读 · 0 评论 -
通过Excel Macros(VBA) Send email, 但需要配置Outlook.
通过Excel Macros(VBA) Send email, 但需要配置Outlook. Private Sub CommandButton1_Click()Dim objOL As ObjectDim itmNewMail As Object引用Microsoft OutlookSet objOL = CreateObject("Outlook.Applicati转载 2010-04-24 11:21:00 · 2124 阅读 · 0 评论 -
Excel VBA Sample 1
Private Sub Workbook_open()--- Define variables. Dim strFileG As String Dim strFileI As String Dim strFileL As String Dim ExcelFile As Excel.Workbook--- Handle C:/TE原创 2009-10-06 08:39:00 · 737 阅读 · 0 评论 -
Excel VBA Sample 3 --- P00517
Private Sub Workbook_open()--- Define variables. Dim xlsbook As Excel.Workbook Dim xlsbook2 As Excel.Workbook Dim xlsbook3 As Excel.Workbook Dim xlsbookx As Excel.Workbook原创 2009-10-06 08:43:00 · 539 阅读 · 0 评论 -
Excel VBA Sample 2 --- P00523
Private Sub Workbook_open()--- Define variables. Dim xlsbook As Excel.Workbook Dim xlsbookx As Excel.Workbook Dim filen As String Dim strSheetName As String Dim strTX原创 2009-10-06 08:42:00 · 660 阅读 · 0 评论 -
VBA 控制 Excel 制作表格的例子
Private Sub Workbook_open()--- Define variables. Dim xlsbook As Excel.Workbook Dim xlsbookx As Excel.Workbook Dim filen As String Dim strSheetName As String Dim strTX原创 2009-05-15 08:42:00 · 995 阅读 · 0 评论 -
VBA AdoDb Load Data from AS400
Sub loaddata_Click() Dim Con As New ADODB.Connection原创 2016-02-02 09:49:06 · 868 阅读 · 0 评论