摘要：
Sub 配送日报()lastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowarr = Sheets("运营日报").Range("a1:ab" & lastrow)Set d = CreateObject("scripting.diction 阅读全文
2018年7月20日
2018年7月18日
摘要：
Sub 数据库连接() Set Cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Cnn.ConnectionString = "Provider=SQLOLEDB;Persist Secu 阅读全文
摘要：
Sub CopyData_5() Set Cnn = CreateObject("ADODB.Connection")With Cnn.Provider = "microsoft.Ace.oledb.12.0".ConnectionString = "Extended Properties=Exce 阅读全文
2018年7月11日
2018年6月29日
摘要：
Sub 导出当前客户达成分析()Application.ScreenUpdating = FalsemyName1 = Sheets("日期统计表").Range("B1") '客户名称myName = Sheets("配送明细报表").Range("BA2")mypath = ThisWorkbo 阅读全文
摘要：
如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。 #001 Sub DialogOpen() #002 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Pa 阅读全文
摘要：
Sub 订单转换()Application.ScreenUpdating = FalseOn Error Resume Next Dim fso, fl, m%, n%, p%, q& Dim wb As Workbook Dim mypath As String Dim brr Sheets.Ad 阅读全文
摘要：
Sub 数据导入()Dim f, arr, i&, j&, k, m%, n%, p%, sh As Workbookf = Application.GetOpenFilename(filefilter:="Excel文件(*xls), *xls", Title:="选择Excel文件", Mult 阅读全文
摘要：
在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogType MsoFileDialogType 类型，必需。文件 阅读全文
摘要：
GetOpenFilename '一、概述基本语法 Application.GetOpenFilename 方法 显示标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件，只是把打开文件名称返回程序。 'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并 阅读全文