谁我想用Excel作一个基层的仓库进销存表格。这张表格反映上月库存、本日进销存、本月（至本日）进销存数据

Posted 2023-04-30

我想用Excel作一个基层的仓库进销存表格。这张表格反映上月库存、本日进销存、本月（至本日）进销存数据。 1、表格的列是固定的（可以算是字段吧）； 2、行标题（品种名）经常加减； 3、部分字段是与其他字段有关的公式，如SUM或+、-等； 4、部分行也是与其他行有关的SUM公式，即商品按类别进行小计，最后一行为总计； 5、使用者每天只需完成表格中的本日“进销”部分，其余的都由VBA去完成； 6、我必须考虑使用者填错数据并统计后，还有即能保留新输入的数据又能正确恢复原有数据的机会。（比如是10天前出的错）而且在更正错误后，能利用同样的代码快速统计。 如果行不会变化就相对简单。但这种情况下有什么比较好的统计办法吗？ 收藏该问题 分享给好友 我的邮箱是[e-mail]

看看我给你介绍的这个，里面有帮助说明，看看和你的思路有哪些不同：

搜索：北京富通维尔科技有限公司网站，里面有很多版本可以下载，包括【仓库企业版】【进销存企业版】【标准免费版】。仓库公司版关注的是库内管理，比如货位管理、先进先出等；进销存公司版关注的是采购成本和销售利润。两个版本都带有报表和查询功能。如果仅仅是想了解原理，可以下载免费版。
小型仓储/仓库/进销存管理工具采用Excel数据库引擎技术，按照软件工程思路设计开发，运行稳定，简单实用。不需要其他额外文件，不用做任何系统上的安装和设置。具有完整的仓库和进销存管理功能，如入出库管理功能、库存管理功能、货位管理功能。能实现按照生产日期先进先出，能够核算库存成本、销售利润，能够统计日报、周报、月报，能够查询入出库履历。广泛适用于中小物流企业的仓库管理、各类生产企业的库存管理、各类商业企业的进销存管理。 参考技术A 象过河进销存仓库管理软件 发你邮箱了

建议你用个免费的进销存软件把 现在谁还用什么excel啊

现在的免费的很多 我也用过很多 最后还是 用了一个

象过河进销存软件

很简单好学 操作简便 主要还是正版终身免费的 数据很有保证
象过河进销存财务软件

你百度一下 象过河软件 象过河进销存财务软件
下载一下 简单很好用
象过河进销存软件 正版终身免费的 数据绝对有保证

有更高级版本 价格公道 服务一流 百度一下 象过河软件 上网站咨询 参考技术B 用excel做进销存比较麻烦，建意用象过河进销存软件来管理。
象过河进销存财务管理软件免费版是郑州象过河软件技术有限公司推出的一款集进货、销售、库存、财务于一体的正版免费进销存软件，可终身免费使用。 象过河进销存财务管理软件是一款专为中小企业或个体工商户而设计开发的进销存仓库管理软件,软件功能实用，操作简单、方便，采用绿色开源数据库FireBird，避免盗版数据库的损失和版权纠纷，独有“软件一键恢复”，即使电脑系统重做，也可一键轻松搞定。 参考技术C 如果产品太多的话，建议还是考虑用进销存软件会好一点，操作起来也方便很多的，如果你担心要花钱买软件的话，可以试试一起进销存软件呀，那个是官方承诺永久免费的！你到是可以试试！ 参考技术D 搜索：XXX公司进销存管理系统 v2.15 会有你想要的东东。 第5个回答  2011-03-03 用个软件不就好了 EXCEL多不保险
我用浩莲生财宝 很简单的 也不花钱

VB 查阅 Excel 文件

本人有 N 个Excel表格(已经在当前目录)，姑且叫 N1.xls 、N2.xls.....。 每个表格固定4个工作表:Sheet1-4。 我想用一个 ADO 控件、一个DataGrid控件，来显示 Excel 文件。用FileListBox 控件选择文件，用两个按钮控件来选择工作表。 折腾了老半天，没成功。 就是要利用 ADO 控件和 DataGrid控件 查看 现有的 Excel 文件(不是新建立 Excel 文件)。 因为有多个 Excel 文件 所以想用FileListBox 控件选择要查阅的文件。 因为每个 Excel 文件中有4个工作表，想用 按钮控件来选择工作表来选择工作表。 如果我的算法不可行，请高手为我想个更好的办法，总之能方便查阅 Excel文件就可以。 请那位高手帮个忙，为我写个程序，上机一通过一定追加分。 先谢了。

参考技术A 思路:
1.取得excel对象,然后控制该对象,读取该对象的所有工作表,并写入listbox,
2.当在用户listbox选取某一工作表时,用ADODC控件连接excel,再把DataGrid绑定ADODC控件,通过DataGrid显示表内的数据
*详细方法如下*
建一个窗体:
增加listbox,dataGrid,adodc
控件各1个
窗体内代码如下
Option
Explicit
Public
path
As
String
'excel文件路径
Private
Sub
Form_Load()
Dim
myexcel
As
New
Excel.Application
Dim
mybook
As
Workbook
Dim
mysheet
As
Worksheet
Dim
su,
j
As
Long
'excel表路径
path
=
"D:\我的文档\3000条新书无资料11_3.xls"
Set
mybook
=
myexcel.Workbooks.Open(path)
'遍历每个工作表,取出所有表名
Dim
a
As
Worksheet
For
Each
a
In
mybook.Sheets
'在此循环里,你可以添加到listbox控件
List1.AddItem
a.Name
'
MsgBox
a.Name
'显示工作表的名称
'
MsgBox
a.Range("a1")
'显示A1单元格
Next
mybook.Close
Set
mysheet
=
Nothing
Set
mybook
=
Nothing
Set
myexcel
=
Nothing
End
Sub
Sub
List1_Click()
'单击listbox的表名时
Dim
Conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Dim
Sql
As
String,
strSheetName
As
String
strSheetName
=
List1.Text
Sql
=
"select
*
from
["
&
strSheetName
&
"$]"
'指定EXCEL表
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Persist
Security
Info=False;Data
Source="
&
path
&
";Extended
Properties='Excel
8.0;HDR=Yes'"
'连接EXCEL文件
Adodc1.RecordSource
=
Sql
Set
DataGrid1.DataSource
=
Adodc1
Adodc1.Refresh
End
Sub