求助设置出库单一键另存的出库数据的表格方便导入系统

秋先森℡ · 发表于 2022-11-24 20:16

本帖最后由秋先森℡ 于 2022-11-25 22:23 编辑

582766 · 发表于 2022-11-24 21:12

表看着好乱里面的公式好像都不用

秋先森℡ · 发表于 2022-11-24 22:01

本帖最后由秋先森℡ 于 2022-11-24 22:20 编辑

582766 发表于 2022-11-24 21:12
表看着好乱里面的公式好像都不用

数据源存在云端的已经重新上了

3190496160 · 发表于 2022-11-25 10:38

1、如你目前这般来做出入库，是非常不科学的：大量公式，而且，公式都是简单的链接，完全没有必要的，
2、出库表中有两个出库单，究竟要保存哪一个呢？？？

秋先森℡ · 发表于 2022-11-25 11:42

3190496160 发表于 2022-11-25 10:38
1、如你目前这般来做出入库，是非常不科学的：大量公式，而且，公式都是简单的链接，完全没有必要的，
2、 ...

保存采购单不是出库单，第一张表是打印给配送收货对货的，另存的是采购单用于导系统
这个是过渡用的，生鲜类的周转较块到货时间出库时间仓促。就需要一个临时处理数据表格，加上又不是非标重量，价格都会差异。

3190496160 · 发表于 2022-11-25 22:11

我打开文件看到的采购单是这样的

3190496160 · 发表于 2022-11-25 22:19

水果零食报货单新24.rar (396.07 KB, 下载次数: 10)

秋先森℡ · 发表于 2022-11-25 22:39

本帖最后由秋先森℡ 于 2022-11-25 22:49 编辑

3190496160 发表于 2022-11-25 22:19

Sub 保存()
Application.ScreenUpdating = False
With Sheets("出库表")
mc = .[v4]
End With
Sheets("采购单").Copy
Set wb = ActiveWorkbook
With wb.Worksheets(1)
.UsedRange = .UsedRange.Value
End With
wb.SaveAs Filename:=ThisWorkbook.Path & "\" & mc & ".xlsx"
wb.Close
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

感谢老师的帮忙我已经重新上传了数据源帮我设置一个指定存储文件位置把

3190496160 · 发表于 2022-11-25 22:42

秋先森℡ 发表于 2022-11-25 22:39
感谢老师的帮忙我已经重新上传了数据源帮我设置一个指定存储文件位置把，你写的点保存了找不到文件位置

呵呵呵，我也是服了你了，生成的文件保存到改文件同一个路劲下呀

3190496160 · 发表于 2022-11-25 22:43

秋先森℡ 发表于 2022-11-25 22:39
感谢老师的帮忙我已经重新上传了数据源帮我设置一个指定存储文件位置把，你写的点保存了找不到文件位置

相同路劲下呀，好好看看吧

		自动登录	找回密码
密码			免费注册

[求助] 求助设置出库单一键另存的出库数据的表格方便导入系统