分享下只需一個cll文件按需打印行的覺得最好的方式:
1.cell文件要打印行的地方最好不要全刪了,留一行,設置好單元格樣式(字體、對齊方式、折行自適應等),后面會省一些代碼;
2.使用CopyRange(開始列,開始行,結束列,結束行)函數,先復制設置好樣式的行;
比如復制第8行2到5列,就是CopyRange(2,8,5,8)
1.cell文件要打印行的地方最好不要全刪了,留一行,設置好單元格樣式(字體、對齊方式、折行自適應等),后面會省一些代碼;

2.使用CopyRange(開始列,開始行,結束列,結束行)函數,先復制設置好樣式的行;
比如復制第8行2到5列,就是CopyRange(2,8,5,8)

3.再使用InsertRow(開始行,插入行數,sheet頁索引)從開始行(當前復制的行)插入“記錄數-1”行;
比如記錄數是4行:InsertRow(8,3,0)

4.然后在循環里使用Paste(指定列,指定行,粘貼單元格樣式,是否等大小粘貼,是否越過空行等)函數粘貼剛才復制的行;
由於插入的話,當前被復制行會往下挪,所以要直接從當前復制行開始粘貼,Paste(2,8,0,1,0),就會把第2列到第5列單元格(包括樣式)復制到當前行,循環每行粘貼一次,4條記錄就是4次;

5,然后對每行的單元格元素進行賦值即可;
axCell1.S(2, curRow, 0, matname);