Attribute VB_Name ="模块11"DiminputdateAsStringDimnewbookAsWorkbookSub提取数据()DimwsAsWorksheetDimdatestrAsStringDimphoneAsStringDimmoneyAsStringDimgoodsAsStringDimnewwsAsWorksheetDimmoneyintAsIntegerinputdate=InputBox("请输入导出日期")Ifinputdate =""ThenEndDimnameAsStringname=Format(inputdate,"m-d"...
Attribute VB_Name ="模块11"DiminputdateAsStringDimnewbookAsWorkbookSub提取数据()DimwsAsWorksheetDimdatestrAsStringDimphoneAsStringDimmoneyAsStringDimgoodsAsStringDimnewwsAsWorksheetDimmoneyintAsIntegerinputdate=InputBox("请输入导出日期")Ifinputdate =""ThenEndDimnameAsStringname=Format(inputdate,"m-d"...