利用excel的vba代碼實現(xiàn)自動化“收集原始數據、匯總計算和報表”(編輯修改稿)
2025-07-27 18:42 本頁面
【文章內容簡介】 MyRng In (原始數據文件[原始數據文件]) , 3, True, , , , True 39。只讀方式打開原始數據文件 (, 2) = FileDateTime() 39。記錄原始文件的最終修改時間 MyNamePath = (, 4) amp。 \ MyNamePath, 3, False, , , , True 39。讀寫方式打開對賬工作簿 With Workbooks().Sheets(房款) .Rows(2: amp。 .).Delete End With For Each MySht In Worksheets MyRows = If 基礎 And 日報數據 Then If (MyRows, 1) Then 39。表格后面無空行時添加一行 (). AlwaysInsert:=True MyRows = MyRows + 1 End If 39。讀入原始數據 Workbooks().Sheets().Range().Copy (MyRows, 1).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False If = 房款 Then Workbooks().Sheets(房款).Cells(2, 1).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Workbooks().Close Savechanges:=True End If 39。讀入原始數據完成 End If Next MySht 39。備份原始數據 MyWordbookName = (, 5) amp。 銷售數據 amp。 Format(Day(Date), 00) amp。 .xlsm 39。設置備份文件名稱 MyNamePath = amp。 \備份\ amp。 MyWordbookName 39。設置備份文件路徑和名稱 Kill MyNamePath Workbooks().SaveAs MyNamePath Workbooks(MyWordbookName).Close Savechanges:=False 39。備份完成，關閉備份的文件 Next MyRng 39。 下一個原始數據文件 39。完成原始數據讀入 39。形成日報數據 With ShtJC 39。(基礎) For Each MyRng In .Range(分期[分期]) 39。遍歷分期數據行 MyRow = For I = 0 To 3 39。范圍(本日、本月、本年、項目） For J = 0 To 2 39。狀態(tài)(0認購1簽約2退房） Set MySht = (日報數據) If (2, 1) Then 39。如果不是空表格就增加一個新空行 (日報數據). AlwaysInsert:=True End If MyRows = 39。記錄表格最后一行以方便后面插入數據 39。把數據寫入日報數據表 (MyRows, 1) =
公司管理相關推薦
鄂ICP備17016276號-1