目录

一些对象的应用方法... 4

Add 方法... 5

Add方法(Dictionary) 6

Add 方法(Folders) 6

Assert 方法... 7

BuildPath 方法... 8

Clear 方法... 8

Close 方法... 9

Copy 方法... 10

CopyFile 方法... 10

CopyFolder 方法... 11

CreateFolder 方法... 12

CreateTextFile 方法... 13

Delete 方法... 14

DeleteFile 方法... 14

DeleteFolder 方法... 15

DriveExists 方法... 15

Exists 方法... 16

FileExists 方法... 16

FolderExists 方法... 17

GetAbsolutePathName 方法... 17

GetBaseName 方法... 18

GetExtensionName 方法... 18

GetFile 方法... 19

GetFileName 方法... 19

GetFolder 方法... 20

GetParentFolderName 方法... 20

GetSpecialFolder 方法... 21

GetTempName 方法... 22

Hide 方法... 22

Item 方法... 23

Items 方法... 24

Keys方法... 24

Move 方法... 25

Move 方法（UseForm）... 25

1、应用于... 25

2、请参阅... 25

MoveFile 方法... 25

MoveFolder 方法... 26

OpenAsTextStream 方法... 27

OpenTextFile 方法... 28

Print 方法... 30

PrintForm 方法... 31

Raise 方法... 31

Read 方法... 33

ReadAll 方法... 33

ReadLine 方法... 34

Remove 方法... 34

Remove 方法（FileSystemObject 对象）... 35

RemoveAll 方法... 35

Show 方法... 36

Skip 方法... 37

SkipLine 方法... 37

WhatsThisMode 方法... 38

Write 方法... 38

WriteBlankLines 方法... 39

WriteLine 方法... 39

附件：点击浏览该文件

因为不识字

以上为正确的代码，但是只能筛选出A列到F列的数据我想筛选出更多列的数据该怎么改这段代码？我已经试过把代码中的F和f改成G就不能使用了。显示代码错误！

1.按保存按钮自动由A列保存到相应月份列

2.除A列其他列锁定

3.实现A列与其他列比较出相同的,结果显示在B列

Dim cn  As New ADODB.Connection            '定义数据链接对象   ，保存连接数据库信息；请先添加ADO引用
Dim rs  As New ADODB.Recordset              '定义记录集对象，保存数据表
Dim strCn  As String

GetConn="数据库联接字符串"

strCn = GetConn
cn.Open strCn

S1 = Sheet1.Range("G4")
D1 = Sheet1.Range("C4")
D2 = Sheet1.Range("E4")

m1 = 230
m2 = 10163

'strSQL = "exec Get_Sales_Assessment " & _
          "@fnumber=" & "'" & S1 & "'," & _
          "@Start_Date=" & "'" & D1 & "'," & _
          "@End_Date=" & "'" & D2 & "'"
strSQL = "Exec GetDutyLevelByUserAndDuty " & _
          "@userid =" & "'" & m1 & "'," & _
          "@dutyCateId=" & "'" & m2 & "'"

Set rs = cn.Execute(strSQL)

do while rs.eof=false   '执行到这里就抱错误:应用程序定义或对象定义错误

loop

嘿！发现了这样一个小工具，可以自动帮我对齐代码，让我读起来不再那么杂乱无章。

此主题相关图片如下：

只需右键单击，就可以自动缩进和对齐代码了，是不是很方便？？

点击浏览该文件

Dim r As Integer, j As Integer

  For j = 1 To Worksheets.Count
     Worksheets(j).Activate
        r = Range("a65536").End(xlUp).Row
          If Worksheets(j).Name <> "汇总表" Then
          Worksheets(j).Range("f6" & ":f" & r).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next j

End Sub

Sub 删除空行()

Dim r As Integer
        r = Range("a65536").End(xlUp).Row
         Range("f6" & ":f" & r).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

为什么第二个过程可以正常运行，而第一个过程不能正常运行？

Sub 删除空行1()

Dim r As Integer, j As Integer

j = Worksheets.Count

    For j = 1 To j

    Worksheets(j).Activate

        r = Range("a65536").End(xlUp).Row

        For r = 6 To r

          If Worksheets(j).Name <> "汇总表" Then

                If Application.WorksheetFunction.Sum(Range("e" & r & ":g" & r)) = 0 Then Range("f" & r).EntireRow.Delete Shift:=xlUp

          End If

        Next r

    Next j

End Sub