库存管理系统（2015.01更新）

zjdh

有你才幸福 发表于 2016-6-23 22:34
老师这个保存功能貌似不好用啊，点击保存弹出存储路径后新建一个工作簿，就不动了，关闭保存是表格 ...

我的附件哪来的“保存”命令？

有你才幸福

zjdh 发表于 2016-6-24 08:16
我的附件哪来的“保存”命令？

就是那个备份命令，备份数据的时候提示保存路径。

有你才幸福

Sub 备份()
    Application.ScreenUpdating = False
    On Error GoTo 1
    Set Mapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择备份文件存放目录：", &H1)
    If Not Mapp Is Nothing Then
        Directory = Mapp.self.Path
    Else
        MsgBox "你没有选择目录！": Exit Sub
    End If
    AD = Directory & Date & "数据备份"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(AD & ".bf") Then Kill AD & ".bf"   '删除旧文件
    Workbooks.Add
    ThisWorkbook.Sheets("数据库").Cells.Copy ActiveWorkbook.Sheets(1).Range("A1")
    ActiveWorkbook.SaveAs Filename:=AD & ".bf"
    ActiveWorkbook.Close
    If MsgBox("数据库的数据已备份，是否要清除本文件'数据库'内容?", 4 + 48 + 256, "提示!") = vbYes Then 清除记录
1   Application.ScreenUpdating = True
End Sub
老师就这段代码，执行完后没有提示：数据库的数据已备份，是否要清除本文件'数据库'内容?
也没有*.bf文件
老师这是为什么呢？

zjdh

看一下如果控件引用不全就添加引用

zjdh

因为我的系统已经自动注册了，所以不需引用。
或则你也注册一下，运行以下语句：
Sub Test
   Shell "regsvr32 c:\windows\system32\scrrun.dll", vbHide
End Sub

有你才幸福

zjdh 发表于 2016-6-24 13:26
看一下如果控件引用不全就添加引用

老师引用了这个scrrun,dll后提示Directory = Mapp.self.Path这句的Directory 不允许给常数赋值

zjdh

有你才幸福 发表于 2016-6-26 18:46
老师引用了这个scrrun,dll后提示Directory = Mapp.self.Path这句的Directory 不允许给常数赋值

这就简单啦
将所有Directory改成其他变量即可，例如：Dict

17605348975

zjdh 发表于 2011-9-23 21:33
数据输入

你好，你们可以给设计吗？

17605348975

谁可以设计excel,我需要根据我们工作实际设计一下，可以支付报酬，电话：17605348975.

zjdh

17605348975 发表于 2016-6-27 12:08
谁可以设计excel,我需要根据我们工作实际设计一下，可以支付报酬，电话：17605348975.

这要看你的具体要求，报酬到并不需要。