【2】VBA文件名变量，按企业号变量和日期变量
czm/ Dim Qyh 作为整数，curSheet1 作为字符串
将 LMonth1 调暗为整数
将 Month1 调暗为字符串
Dim QyN1 As String 定义按指定企业号定义企业当月工作簿名称：19/07/xls
Dim QyN2 As String 定义按指定企业号定义应企业当月工作簿名称：19/07/xlsx
Qyh = Cells(100/ 1) 从当前工作表Range( A100 )获取指定企业号
Qyh = 1
Debug/Print LenB(Qyh)
Debug/Print Len(单元格(99/ 1))
如果 Qyh </ 10 那么
curSheet1 = 0 &/ Qyh
单元格 (99/ 1) = curSheet1
别的
curSheet1 = Qyh 指定企业号的工作表
调试/打印 curSheet1
万一
LMonth1 = Month(Date) - 1 得数值型上月数值
调试/Print LMonth1
调试/打印 Len(LMonth1)
如果 LMonth1 </ 10 那么
Month1 = 0 &/ LMonth1 得文本型上月值
调试/打印 Month1
别的
Month1 = LMonth1
调试/打印 Month1
万一
QyN1 = curSheet1 &/ / &/ Month1 &/ /xls 得文件名
调试/打印 QyN1