作者：iamlaosong

用VBA對(duì)Excel文件進(jìn)行處理的時(shí)候,，keyword段的列號(hào)編程時(shí)往往是不知道的,。須要通過(guò)參數(shù)設(shè)定才干知道,，因此,。我們編程的時(shí)候，就不能用這種語(yǔ)句取有效行數(shù)：

    lineno = [B65536].End(xlUp).Row          '從下至上找有效行數(shù)

上述語(yǔ)句中的列名“B”假設(shè)是變量。能夠用字符串連接的方式實(shí)現(xiàn),，即：

    pos_ems = 'C'
    lineno = Range(pos_ems & '65536').End(xlUp).Row

假設(shè)給的是列號(hào),，則用下列語(yǔ)句：

   pos_ems = 3
   lineno = Cells(65536, pos_ems).End(xlUp).Row

假設(shè)該列全部須要處理的單元格都有值。也能夠用下列語(yǔ)句：

    lineno = [B1].End(xlDown).Row          '從上至下找有效行數(shù)

上述語(yǔ)句中的變量pos_ems能夠讀取單元格的值，以便面對(duì)不同文件時(shí)隨時(shí)設(shè)置：

    pos_fst = Cells(2, 7)
    pos_ems = Cells(3, 7)
    pos_sav = Cells(4, 7)
    
    lineno = [B65536].End(xlUp).Row           '行數(shù),，文件數(shù)量
    
    For unit_num = 5 To lineno                 '文件循環(huán)
    
        datfile = Cells(unit_num, 2)                              '文件名
        datFullName = ThisWorkbook.Path & '\' & datfile
        If Dir(datFullName, vbNormal) <> vbNullString Then
            Workbooks.Open Filename:=datFullName        '打開(kāi)訂單文件
            If Application.Version >= '12.0' And ActiveWorkbook.FileFormat = 51 Then
                maxrow = Cells(1048576, pos_ems).End(xlUp).Row
            Else
                maxrow = Cells(65536, pos_ems).End(xlUp).Row
            End If
        Else
            MsgBox '數(shù)據(jù)文件不存在,。', vbOKOnly, 'iamlaosong'
            Exit Sub
        End If

,。