If t[0]=Null
Break
Else
End If
Try
新工作表 = ExcelFile.OpenExcel(固定文件地址&号&t[0]&".xls")
Catch
Dialog.MsgBox("工资固定数据文件夹位置不正确,请选择固定数据文件夹位置!\n注意:请选择文件夹,不是文件。","提示!","0",3,0)
/*固定文件地址 = DlgEx.SelDir("请选择导出保存的Excel表文件夹","C:\\Users\\Administrator\\Desktop\\个税报表\\修改后工资申报数据")
*/
固定文件地址 = Dialog.OpenFile("C:\\Users\\Administrator\\Desktop\\个税申报数据\\个税申报固定数据","任意文件*","选择文件")
位置= InStrRev(固定文件地址,"\\",1,False)
固定文件地址 = SubStr(固定文件地址,1,位置)
固定文件地址 = Replace(固定文件地址,"\\","\\\\",True)
新工作表 = ExcelFile.OpenExcel(固定文件地址&号&t[0]&".xls")
End Try
工作表名 = ExcelFile.GetSheetsName(新工作表)
行数 = ExcelFile.GetRowsCount(新工作表,工作表名[0])
工资 = ExcelFile.ReadRange(新工作表,"综合所得申报税款计算","G2:H"&行数)
ExcelFile.CloseExcel(新工作表,True)
Try
新工作表 = ExcelFile.OpenExcel(改完后文件地址&号&t[0]&".xls")
Catch
Dialog.MsgBox("新工资表数据文件夹位置不正确,请选择有数据文件夹位置!\n注意:请选择文件夹","提示!","0",3,0)
/*改完后文件地址 = DlgEx.SelDir("","C:\\Users\\Administrator\\Desktop\\实验1")
*/
改完后文件地址 = Dialog.OpenFile("C:\\Users\\Administrator\\Desktop\\个税申报数据\\个税申报固定数据","任意文件*","选择文件")
位置= InStrRev(改完后文件地址,"\\",1,False)
改完后文件地址 = SubStr(改完后文件地址,1,位置)
改完后文件地址 = Replace(改完后文件地址,"\\","\\\\",True)
新工作表 = ExcelFile.OpenExcel(改完后文件地址&号&t[0]&".xls")
End Try
For Each z In 工资
If z[1]=""
Break
Else
End If
产生的数 = Rnd()
产生的数 =产生的数 *200
产生的数 = CInt(产生的数)
写入每行=写入每行+1
产生数据合计=产生的数+z[1]
ExcelFile.WriteCell(新工作表,"综合所得申报税款计算","H"&写入每行,产生数据合计,True)
Next
这是我做的打开文件夹里多个excel表自动修改数据的代码,你看的懂的话可以研究参考