當前位置:商標查詢大全網 - 培訓招生 - 天津VBA培訓班

天津VBA培訓班

子摘要()

Dim WB作為工作簿,YN作為布爾型

Dim Hzsht,Tjsht作為工作表

Dim RowHz,RowTj壹樣長

對於工作簿中的每個WB

如果WB。Name = "form tianjin.xls xls "然後

YN =正確

為...退出

如果…就會結束

然後

如果YN =假,那麽工作簿。打開此工作簿。路徑與路徑。”\來自天津。xls "

對於i = 1到3

Set Hzsht = Workbooks("表摘要。xls”)。床單(壹)

設置Tjsht = Workbooks ("form天津。xls”)。床單(壹)

RowHz = Hzsht。UsedRange.Rows.Count

RowTj = Tjsht。UsedRange.Rows.Count

Tjsht。rows(" 2:" & amp;RowTj)。復制Hzsht。範圍(" A " & ampRowHz + 1)

然後

末端接頭