OLIVER_QIN - 博客园

2017年8月11日

摘要：正在使用的工作簿，嫌窗口太多，不利于操作，想把窗口隐藏，该怎么做呢？Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿！" MsgBox "下面即将还原正在使用的工作簿!" Application.Visible = TrueEnd Sub点击运行程序后，出现如下结果接着出现弹窗工作簿还原了... 阅读全文

posted @ 2017-08-11 10:21 OLIVER_QIN 阅读(1783) 评论(0) 推荐(0) 编辑

【VBA】设置Excle最近使用文件清单数量

摘要：打开Excle，点击“文件”------“最近使用的文件”，如下图：根据上图可以看到，最近使用的文件数目为11个，那么是怎么实现的呢？具体代码如下：Public Sub 最近使用的文件清单数() '最近使用的文件清单数 Application.RecentFiles.Maximum = 11 MsgBox "最近使用的文件清单数设置为：11"End Sub 阅读全文

posted @ 2017-08-11 10:12 OLIVER_QIN 阅读(414) 评论(0) 推荐(0) 编辑

【VBA】查看当前窗口的宽与高

摘要：打开的Excle如何使用VBA查看当前窗口的宽与高呢？代码如下：Sub 查看宽度与高度() Dim myWidth As Double Dim myHeigth As Double myWidth = Application.Width myHeigth = Application.Height MsgBox "当前窗口的宽与高 " _ & vbCrLf & "... 阅读全文

posted @ 2017-08-11 09:25 OLIVER_QIN 阅读(589) 评论(0) 推荐(0) 编辑

2017年8月10日

【DB2】根据映射表映射出结果

摘要：第一步：创建语法CREATE TABLE OLIVER_MAP(ID INT,COM_TYPE VARCHAR(100),COM_NAME VARCHAR(100),SR_UP DECIMAL(18,2),SR_LIM DECIMAL(18,2),RES VARCHAR(100));INSERT INTO OLIVER_MAP(ID,COM_TYPE,COM_NAME,SR_UP,SR_LIM,R... 阅读全文

posted @ 2017-08-10 18:10 OLIVER_QIN 阅读(693) 评论(0) 推荐(0) 编辑

【Datasatge】使用Datastage装载数据时候，报错：Missing record delimiter “”,saw EOF instead

摘要：如题，报错截图如下：根据以上警告信息我们可以清晰看出，是字段DEFAULT_FLAG出错了！于是我们找到对应的字段，结果一看，导出文件中DS表结构中该字段为DECIMAL(18,2),但是导出文件中为VARCHAR(1),这就尴尬了！于是修改字段类型后，轻松导入！注明：此类错误在DS运行时候，DS运行并不会报错，只会有相应警告，需要查看日志才能找到问题。阅读全文

posted @ 2017-08-10 17:58 OLIVER_QIN 阅读(610) 评论(0) 推荐(0) 编辑

【Datastage】Datastage在win10上安装报错：This Application requires one of the following versions of the .NET Framework:v1.1.4322 Do you want to install this .NET Framework version now？

摘要： Datastage在win10上安装报错如下：这个错误的意思是：。netFramWork的版本不符合要求，于是，我在网上下载了一个版本一致的下载地址为：http://pan.baidu.com/s/1i5kmEfN下载完成以后，就可以开始安装了，但是在win10上安装DataStage时会出现检查不通过，没关系，使用以下命令即可解决问题：setup.exe –force程序正在开始安装......... 阅读全文

posted @ 2017-08-10 17:54 OLIVER_QIN 阅读(6315) 评论(0) 推荐(0) 编辑

【VBA】获取当前工作表的用户名

摘要：如何使用VBA获取当前工作表的用户名呢？请看如下代码：Sub 获取当前工作表的用户名() MsgBox "当前工作表的用户名为：" & Application.UserNameEnd Sub点击运行程序后，效果如下：点击下载附件阅读全文

posted @ 2017-08-10 17:46 OLIVER_QIN 阅读(1733) 评论(0) 推荐(0) 编辑

【VBA】获取Excle的安装路径

摘要：在VBA中，如何获取Excle的安装路径呢？请看以下代码：Sub 获取Excle的安装路径() MsgBox "Excle的安装路径为：" & Application.PathEnd Sub点击运行程序后，执行结果如下：点击下载附件阅读全文

posted @ 2017-08-10 17:35 OLIVER_QIN 阅读(404) 评论(0) 推荐(0) 编辑

【VBA】查看窗口当前状态

摘要： Excle的窗口分为：最大化，最小化，一般使用VB代码如何查看窗口的状态呢？代码如下所示：点击“运行程序”，出现如下：点击下载附件说明：阅读全文

posted @ 2017-08-10 17:03 OLIVER_QIN 阅读(674) 评论(0) 推荐(0) 编辑

【VAB】获取库文件地址

摘要：如何获取Excle库文件地址呢？具体代码如下：Public Sub 获取Excel库文件夹的路径() MsgBox "库文件夹的路径是: " & Application.LibraryPathEnd Sub点击"运行程序"，出现如下结果：附件下载阅读全文

posted @ 2017-08-10 16:46 OLIVER_QIN 阅读(261) 评论(0) 推荐(0) 编辑

公告