使用VBA,20行代码 将Excel数据导出

1、满足需求


    程序员免不了与策划或运维打交道。通常情况是有配置数据的更改。但是即便是程序员也有写错的时候。更改一个配置,使用更直观的excel,成为了单写配置工具的替代方案。这里介绍一个将Excel的数据导出生成文件的方法。

2、设计Excel

       我们以植物大战僵尸2为例。其中有植物图鉴,这些数据明显是配置的,而且描述部分可能会更改。 假设,我们有这样的一个Excel。
    
    

    数据直观也简单。假设这就是全部要输出的信息啦。

3、VBA

    使用VBA,首先我们要打开VBA的编辑界面,找到Excel选项,进行设置,我使用的是Excel2010,在文件->excel选项中:
    

    勾选开发工具,这样上面的菜单栏中就会出现开发工具菜单。
  
  

    点击Visual Basic,就进入vba编辑界面了。

    右击Excel对象文件夹,添加一个模块:

    

    在右侧的模块编辑框中加入代码:
    
Option Explicit
Sub writeOutData()
    Dim result As String
    Dim i As Integer
    Dim j As Integer
    For i = 3 To 10
        For j = 2 To 10
            If Len(Sheet1.Cells(i, j).Value) > 0 Then
                result = result & Sheet1.Cells(2, j) & " = " & Sheet1.Cells(i, j).Value & Chr(10)
            End If
        Next
    Next
    Open ThisWorkbook.Path & "\OutPut.txt" For Binary As #1
        Put #1, , result
        Close #1
    MsgBox "OutPut Success!"
End Sub


    很清爽是吧。保存,遇到这个对话框:
    
    
    这里微软出于安全性的考虑默认excel是不加载宏的。因此这里我们选否,在接下来的界面里将其保存为.xlsm

    

    保存之后。我们vba的编辑就完成了。

4、添加操作按钮

      接下来我们要在界面上放一个大按钮来调用这个宏方法。
    首先选取开发工具->插入->表单控件的第一个。拖动鼠标,绘制一个按钮。

    

    拖动后,在弹出的界面选择刚才我们写的宏

  
    点击确定。我们就能看到这个按钮啦,再右击,选择编辑名称,将其改为“导出”。
   

  好了,现在点击这个按钮,你会看到弹出的对话框,并且在次Excel同级目录会有一个名为output.txt的文件,记录我们的信息。 生成了文件是这样的:
  

5、总结

    经过设计表格、编写vba脚本、添加界面操作这些步骤,我们就可以导出Excel的信息了。整个过程非常方便。如果用c++来实现这样一个需求,还是很麻烦的。而这种方法只需要不超过20行代码。当然我们也可以增加逻辑,定制化数据的处理与输出。

    Excel文件下载地址:http://download.csdn.net/detail/fansongy/5955971


本篇博客出自阿修罗道,转载请注明出处:http://blog.csdn.net/fansongy/article/details/9988127
  
    
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页