想要一个Excel进销存表格模板一张表的，谢谢！775659042

这是一张进货表，采用一键导入数据库方式。

Private Sub CommandButton1_Click()

'从数据库读取供应商名称，写入名称管理器的供应商名称

'从数据库读取客户代号，写入名称管理器的客户代号

Dim rsT As New ADODBRecordset

Dim Conn As ADODBConnection

Dim myData As String

'Dim Arr As Object

'连接数据库

myData = ThisWorkbookPath & "\acjxcaccdb"

Set Conn = CreateObject("ADODBConnection") '这属于后期绑定

ConnConnectionString = "Provider=MicrosoftACEOLEDB120;Data Source=" & myData

ConnConnectionString = ConnConnectionString & ";Jet OLEDB:Database Password = gpflovezx@1980"

ConnOpen

'读取供应商清单

sqL = "SELECT 供应商名称 FROM GYSQD "

rsTOpen sqL, Conn, adOpenKeyset, adLockOptimistic

If rsTRecordCount = 0 Then

MsgBox ("供应商清单为空！！！")

rsTClose

Exit Sub

Else

Arr = rsTGetRows

End If

rsTClose

'输出导入结果

Range(Cells(3, 27), Cells(1000, 27))ClearContents

For i = 0 To UBound(Arr, 2)

Cells(3 + i, 27) = Arr(0, i)

Next i

With ActiveWorkbookNames("供应商名称")

Name = "供应商名称"

RefersToR1C1 = "=进!R3C27:R" & 3 + i & "C27"

Comment = ""

End With

'读取货号

sqL = "SELECT 货号 FROM CPQD "

rsTOpen sqL, Conn, adOpenKeyset, adLockOptimistic

If rsTRecordCount = 0 Then

MsgBox ("产品清单为空！！！")

rsTClose

Exit Sub

Else

Arr = rsTGetRows

End If

rsTClose

'输出导入结果

Range(Cells(3, 28), Cells(1000, 28))ClearContents

For i = 0 To UBound(Arr, 2)

Cells(3 + i, 28) = Arr(0, i)

Next i

With ActiveWorkbookNames("货号")

Name = "货号"

RefersToR1C1 = "=进!R3C28:R" & 3 + i & "C28"

Comment = ""

End With

'读取客户代号

sqL = "SELECT 客户代号 FROM KHQD "

rsTOpen sqL, Conn, adOpenKeyset, adLockOptimistic

If rsTRecordCount = 0 Then

MsgBox ("客户清单为空！！！")

rsTClose

Exit Sub

Else

Arr = rsTGetRows

End If

rsTClose

'输出导入结果

Range(Cells(3, 29), Cells(1000, 29))ClearContents

For i = 0 To UBound(Arr, 2)

Cells(3 + i, 29) = Arr(0, i)

Next i

With ActiveWorkbookNames("客户代号")

Name = "货号"

RefersToR1C1 = "=进!R3C29:R" & 3 + i & "C29"

Comment = ""

End With

End Sub

这是导入数据库的代码

通过 excel+access+vba 实现小企业的进销存管理系统

报表设计的制作步骤基本上是这样的：

1、新建数据连接；

2、新建模板与数据集；

3、模板样式设计及数据绑定；

4、模板预览效果查看。

思迈特软件Smartbi经过多年持续自主研发，凝聚大量商业智能最佳实践经验，整合了各行业的数据分析和决策支持的功能需求。满足最终用户在企业级报表、数据可视化分析、自助探索分析、数据挖掘建模、AI智能分析等大数据分析需求。SmartBI是国产BI中比较成熟的报表引擎，提供了强大的可配置定制化功能，可以实现你能想到的几乎所有数据呈现形式。

Smartbi在国内市场份额位居榜首。它内置了成熟的数据分析模型，不需要写复杂的公式或代码就可以完成个项目的计算分析。界面美观，也可以处理复杂的中国式报表。还内置了各个行业常见的报表模板，比如资产负债表的模板。各种专业的报表功能，表格的制作、同步、保存、分享、权限控制都支持。官方网站提供个人免费版本，而且是永久免费，商用收费。

思迈特软件Smartbi个人用户全功能模块长期免费试用

马上免费体验:Smartbi一站式大数据分析平台

新建一个数据库有两种方法：一种是创建一个空数据库，即建立一个没有表、查询、窗体和报表等内容的数据库；另一种方法是使用Access中提供的数据库模板创建数据库，即通过对向导所提出的选项和不同选择来设计窗体、查询和报表等，从而建立一个完整的数据库。这里我们将使用第一种方法：

Step1：在Access窗口中单击 “文件(F)”菜单，在下拉菜单中选择 “新建”项，将得到对话框。

“新建”对话框

双击 “数据库” 图标，即会显示 “文件新建数据库” 对话框，

Step3：在文件名文本框中输入要保存数据库的文件夹及新建的数据库名，如 “C:\test”，然后选择 “确定”。即可创建好一个名为 “test” 的数据库。

二添加数据表

表是Access数据库的基础，是信息的载体。其它对象如查询、窗体和报表，也是将表中的信息以各种形式表现出来，方便用户使用这些信息。在Access中，创建表的方法有三种：一是使用设计器创建表；二是通过输入数据创建表；三是利用向导创建表。在这里，我们采用第一种方法创建表：

Step4：在窗体中，双击 “使用设计器创建表”，则会出现对话框。

表设计器对话框

Step5：在“字段名称”列的第一行中输入authors表的第一个字段的名字 id。然后按回车键，此时在“数据类型”列中会显示出一个按钮，单击按钮，在d出的下拉列表中选择“文本”选项，设置 id 字段的类型为文本型。

设置字段数据类型

Step6：在“字段属性”域的“常规”选项卡中，可以设置字段的大小、格式和规则等。如我们可以把id字段的长度大小设置为12，并且规定其不能为空，因此，可以设置如下：在 “字段大小”文本框中输入12，在 “必填字段”文本框中输入“是”，在“允许空字符串”文本框中输入“否”。

设置字段属性内容

Step7：重复上述方法，添加其它字段，并设置其属性。

Step8：设置完成后，单击 “文件(F)”菜单，在下拉菜单中选择 “保存”项，将会出现一个如图18的对话框，在“表名称”文本框中输入表名 authors，单击确定按钮。

“保存”对话框

Step9：此时，系统会提示用户建立一关键字段。一般情况下单击“是”完成即可。

以上就是关于想要一个Excel进销存表格模板一张表的，谢谢！775659042全部的内容，包括:想要一个Excel进销存表格模板一张表的，谢谢！775659042、如何用web报表工具去制作报表、如何建立一个新的ACCESS表格等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！