[分享]VBA程序集(第5辑)

山山好又快

谢谢楼主分享！！！

nowarmy

谢谢分享！学习啦。

Excel2119

谢谢楼主分享，学习研究……

老狼H

谢谢分享

收藏

白多黑少

下载学习中

win2009

Option Explicit
Sub 数据输出()
    Dim DestFile As String
    Dim FileNum As Integer
    Dim ColumnCount As Integer
    Dim RowCount As Integer
    DestFile = InputBox("输入您所要保存数据的目标文件名" & _
      Chr(10) & "(最好带有完整的保存路径和扩展名):", _
      "引号-逗号分隔输出")
    FileNum = FreeFile()
    On Error Resume Next
    Open DestFile For Output As #FileNum
    If Err <> 0 Then
      MsgBox "不能打开文件!请确保您输入了正确的文件名和路径." & DestFile
      End
    End If
    On Error GoTo 0
    For RowCount = 1 To Selection.Rows.Count
      For ColumnCount = 1 To Selection.Columns.Count
         Print #FileNum, """" & Selection.Cells(RowCount, _
            ColumnCount).Text & """";
         If ColumnCount = Selection.Columns.Count Then
            Print #FileNum,
         Else
            Print #FileNum, ",";
         End If
      Next ColumnCount
    Next RowCount
    Close #FileNum
End Sub



选项 清楚的显示
过程 数据输出()
    定义变量 destfile 为 字符串
    定义变量 filenum 为 整型值
    定义变量 columncount 为 整型值
    定义变量 rowcount 为 整型值
    destfile = 输入框("输入您所要保存数据的目标文件名" & _
      数值转字符(10) & "(最好带有完整的保存路径和扩展名):" ,_
      "引号-逗号分隔输出")
    filenum = 自由文件()
    当 错误 转到 下一句
    打开文件 destfile 循环范围 顺序输出 为 #filenum
    如果 err<>0 那么
      消息框： "不能打开文件!请确保您输入了正确的文件名和路径 . " & destfile
      结束
    结束 如果
    当 错误 跳至 0
    循环范围 row计数值 = 1 到 选定区域 . 行数 . 计数值
      循环范围 column计数值 = 1 到 选定区域 . 列坐标 . 计数值
         输出显示 #filenum , """ " & 选定区域 . 单元格集合(rowcount ,_
            columncount) . 文本 &  """ ";
         如果 column计数值 = 选定区域 . 列坐标 . 计数值 那么
            输出显示 #filenum  ，
         否则
            输出显示 #filenum ,"  ，";
         结束 如果
      下一句 columncount
    下一句 rowcount
    关闭 #filenum
结束 过程