- 博客(15)
- 收藏
- 关注
原创 新聞社 日本支社
东京分社(日本)【字体:大 中 小】【打印本稿】 地址:日本国东京都涩谷区惠比寿3丁目35番地23号 XINHUA NEWS AGENCY TOKYO BUREAU 35-23, EBISU 3-CHOME,SHIBUYA-KU, TOKYO
2008-10-30 08:17:00 378
原创 エクセルvba 参考
http://www.geocities.jp/happy_ngi/YNxv9cz55.html http://www.red.oit-net.jp/tatsuya/vb/Excel.htm
2008-10-24 16:35:00 356
原创 Excel Print
Private Sub 印刷_Click() On Error GoTo Err_Handler sheetを作る Dim xl As Object Set xl = CreateObject("Excel.Sheet") Dim strSelsql As String Dim intNo As Integer Dim db As D
2008-10-24 09:58:00 715
原创 终于解决了:在vba中,使用api打开文件保存对话框
苍天啊!不容易啊!几代人的心血,终于让我拼在一起了。 以下代码,请写入 标准模块中在aceess 2007中测试通过。希望,对大家有帮助 Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA
2008-10-07 00:11:00 3118
原创 用API实现调用保存文件对话框
用API实现调用保存文件对话框 作者:不详 来源于:中国VB网 发布时间:2004-10-23用API实现调用保存文件对话框 保存文件(另存为)对话框同样可以不使用VB的控件来实现,那就是API函数GetSaveFileName。 首先需要将下面的API函数声明写入一个模块中。 Option ExplicitDeclare Function Get
2008-10-06 23:16:00 950
原创 使用保存文件对话框获取文件名的问题
http://www.qqgb.com/program/vb/vbjq/program_176529.html 使用API调用保存文件对话框, 使用 ofn.lpstrFile="TR.bmp" 初始化文件名为 "TR.bmp" 但当在对话框中修改文件名后若长度不是11就会有问题, 如修改为“TR1.bmp” 后获得的文件名为"TR1.bm" 修改为“T.bmp”后获得的文件名为“T.b
2008-10-06 23:07:00 881
原创 msoFiledialogSaveAs 类型文件框如何使用?
http://club.excelhome.net/dispbbs.asp?boardid=2&id=33219
2008-10-06 22:56:00 1880
原创 CommonDialog1
VB中的对话框控件不论是,打开还是保存都需要一个完整的操作过程,按了保存而没有完成了保存的操作,就会出现错误,有两种方法可以不出错(我只知道两种) CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*" CommonDialog1.ShowSave if commondialog1.filename="" then exit sub Op
2008-10-06 22:52:00 872
原创 vba 设置txt文件只读,隐藏属性
SetAttr 语句 为一个文件设置属性信息。 语法 SetAttr pathname, attributes SetAttr 语句的语法含有以下这些命名参数: 部分 描述 pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含目
2008-10-06 09:37:00 4072
原创 vba checkbox全选
Private Sub CommandButton1_Click() Dim A1 As Object For Each A1 In UserForm1.Controls If TypeName(A1) = "CheckBox" Then A1.Value = 1 全部取消就 赋值 0 End If NextEnd Sub http://topic
2008-10-02 12:33:00 2799
原创 vba 验证文本框中只输入数字
http://topic.csdn.net/t/20010914/16/286973.htmlhttp://topic.csdn.net/t/20050128/13/3760581.html
2008-09-29 22:32:00 1813
原创 续:求出组合后,打印到文件中
Option ExplicitDim sValue() As Long, sSeiban() As String, fValue() As Long, bUsed() As Boolean, strResults As StringSub Initialize() strResults = "" Dim iLoop As Integer ReDi
2008-09-28 22:11:00 407
转载 组合的算法(二)
组合算法的另外一种实现:Option ExplicitDim sValue() As String, fValue() As Integer, bUsed() As BooleanSub Initialize() Dim iLoop As Integer ReDim fValue(UBound(sValue))
2008-09-28 12:19:00 302
原创 组合的算法
题目:数组中有 1,1,2,2,3,4,5 分别放在a(0)至a(6)位置 从这7个数字中找出 相加后 和 等于 5 的 或者 自身等于 5 的值 的 所有组合 比如 112 a(0)a(1),a(2) 112 a(0)a(1),a(3) 23 a(2),a(3) 23 a(2),a(4) 14 a(0),a(5) 14 a(1),a(5) 5 a(6)
2008-09-28 12:16:00 297
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人