zxx2403的专栏

Sheet1.UsedRange.Clear Worksheets("Sheet1").Cells.Clear ' or ClearContents

refer http://office.microsoft.com/en-ca/excel-help/subtotal-function-HP010062463.aspxReturns a subtotal in a list or database. It is generally easier to create a list with subtotals by using

Attribute VB_Name = "ModSaveEmails"Option ExplicitSub SaveAllEmails_ProcessAllSubFolders()Dim i               As LongDim j               As LongDim n               As LongDim StrSubjec

Try the CStr() functionDim myVal as String;Dim myNum as Integer;myVal = "My number is:"myVal = myVal & CStr(myNum);

Dim filePath As String    Dim fileName As String    Dim charToEncode As String    Dim encodingType As String    Dim success As Boolean    Dim rngArray() As Variant    filePath = "C:\"

Highlight the area where you would like to find the blank cells. To highlight an area,left click on the top left cell, and then drag the cursor down to the bottom left cellClick on "View," then cl

Sub test()        On Error GoTo CloseRs        Dim conn As New ADODB.Connection           conn.connectionString = "Provider=OraOLEDB.Oracle;Data Source=xxxxxx;User Id=xxxxxx;Password=xxxxx

Option ExplicitOption Compare TextSub ImportCsvFile()    'Define variables    Dim RowI As Long    Dim ColJ As Integer    Dim ColJ2 As Long    Dim FileName As String    Dim FileNo As In

使用vba 访问数据库, 使用ado控件Dim conn As ADODB.Connection需要引入 Microsoft ActiveX Data Object 2.x Library

Public Sub deleteRows()    Dim strPath As String    strPath = "C:\backup\PCW\20140603\both\result"            Dim objFSO As Scripting.FileSystemObject    Set objFSO = New Scripting.FileSyste