能否将excel文件格式转化成.data后辍的文件

zyf0308

能否将excel文件格式转化成.data后辍的文件

zyf0308

有会的大神么？

魂断蓝桥

感觉就是记事本文件吧。

你的data用什么软件打开？

zyf0308

魂断蓝桥 发表于 2018-7-20 09:33
感觉就是记事本文件吧。

你的data用什么软件打开？

你好，可用UltraEdit文本编辑器打开。

一把小刀闯天下

'就是一个文本文件。一般dat都是二进制文件，你这叫csv文件

Option Explicit

Sub test()
  Dim arr, i, j, filename
  filename = "d:\abc.dat" 'dat文件输出位置
  arr = [a1].CurrentRegion
  Debug.Print [a1]
  ReDim brr(1 To UBound(arr, 1)) As String
  For i = 1 To UBound(arr, 1)
    brr(i) = Format(arr(i, 1), "00000000")
    For j = 2 To UBound(arr, 2)
      If j = 4 Then
        brr(i) = brr(i) & "," & Format(arr(i, j), "0.00")
      Else
        brr(i) = brr(i) & "," & arr(i, j)
      End If
  Next j, i
  Open filename For Output As #1
  Print #1, Join(brr, vbNewLine)
  Close #1
End Sub

zyf0308

非常感谢小刀老师，还有一个问题，最后一列身份证后面加一个逗号“，”要怎么弄？