2010年07月_laoyebin

11月 08月 07月 06月 05月 04月 03月 02月

原创 Word里全角转换成半角

上次写一篇文章，不小心开了全角，结果文章编辑完，惨不忍睹，然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数，但发现VBA的ASC不是全半角转换的功能，晕死，只能网上找答案，终于，找到一个狼版以前发的回帖，完美解决。 代码如下：Sub SBC2DBC() ActiveDocument.Content.CharacterWidth = wdWidthHalfWidthEnd Sub 作者：laoyebin(Paladin.lao)博客园出处：h

2010-07-26 23:21:00 1215

原创 VBA导入VFP的.dbf文件

Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = CreateObject("adodb.recordset") Dim sql As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='dbase 5.0

2010-07-26 23:20:00 1923

原创用VBA导出Excel里的图表为JPG文件

Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileName = "myChart.jpg" On Error Resume Next Kill ThisWorkbook.Path & "/" & myFileName myChart.Export Fi

2010-07-17 13:07:00 3117 10

原创用VBA来关闭其他程序

以关闭Winrar.exe为例，代码如下： Sub closeWinrar() Dim oWMT As Object, oProcess As Object Set oWMT = GetObject("winmgmts://") For Each oProcess In oWMT.InstancesOf("Win32_Process") If LCase(oProcess.Name) = "winrar.exe" Then

2010-07-13 20:22:00 2485