可以运行后把数据库里面的中文加到TXT文档里面吗?

FRANKEXCELVB

请教老师, 每个货号的中文数据-產品內容, 產品顏色明細,包裝-都在EXCEL表格里面, 可不可以通过对EXCEL表格的A列字段和TXT里面的对应货号字段进行匹配, 运行VBA程序后把EXCEL表格里面的中文翻译的     產品內容, 產品顏色明細,包裝         加到对应TXT里面相应的位置.      有示例. 求老师赐教.
EXCEL表格里面的A列的字段是唯一的, 通过它到TXT文档里面进行查找,匹配.

FRANKEXCELVB

急盼高手帮忙哈

FRANKEXCELVB

急盼高手帮忙回复

一把小刀闯天下

FRANKEXCELVB 发表于 2019-3-21 06:04
急盼高手帮忙回复

'输入输出都为utf-8编码文件，，，

Option Explicit

Sub test()
  Dim i, j, arr, filename, dic, t
  filename = ThisWorkbook.Path & "\147654_CN.txt"
  If Len(Dir(filename)) = 0 Then MsgBox filename: Exit Sub
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion
  For i = 1 To UBound(arr, 1): dic(arr(i, 1)) = arr(i, 2): Next
  With CreateObject("ADODB.Stream")
    .Type = 2
    .Mode = 3
    .Open
    .LoadFromFile filename
    .Charset = "UTF-8"
    .Position = 2
    arr = Split(Mid(.ReadText, 3), vbNewLine)
    .Close
  End With
  For i = 0 To UBound(arr)
    If IsNumeric(Left(arr(i), 1)) Then '标志位，目测是唯一的
      t = Split(arr(i), Space(1))
      For j = 1 To UBound(t)
        If Len(t(j)) Then
          If dic.exists(t(j)) Then arr(i + 1) = Space(42) & dic(t(j))
          i = i + 1: Exit For
        End If
      Next
    End If
  Next
  filename = Left(filename, Len(filename) - 4) & "-输出.txt"
  With CreateObject("ADODB.Stream")
    .Type = 2
    .Mode = 3
    .Charset = "utf-8"
    .Open
    .WriteText Join(arr, vbNewLine)
    .SaveToFile filename, 2
    .flush
    .Close
  End With
End Sub

FRANKEXCELVB

一把小刀闯天下 发表于 2019-3-21 06:59
'输入输出都为utf-8编码文件，，，

Option Explicit

非常感谢老师的及时回复  

FRANKEXCELVB

一把小刀闯天下 发表于 2019-3-21 06:59
'输入输出都为utf-8编码文件，，，

Option Explicit

老师，如果输入的文件名是不断变化的，怎么改语句？文件名规律，和字数是一样的。

FRANKEXCELVB

一把小刀闯天下 发表于 2019-3-21 06:59
'输入输出都为utf-8编码文件，，，

Option Explicit

非常好用,谢谢老师.  现在     產品內容  的中文翻译从B列匹配上去了;
但是 產品顏色明細  的中文翻译  (C列)没加到, 对应的英文后面, 英文后面空10格加上即可;
             包裝   的中文翻译  (D列)没加到, 对应的英文后面, 英文后面空10格加上即可;
再次感谢老师大力帮忙!!!

一把小刀闯天下

FRANKEXCELVB 发表于 2019-3-21 11:54
非常好用,谢谢老师.  现在     產品內容  的中文翻译从B列匹配上去了;
但是  產品顏色明細  的中文翻译  ...

自己试一下，满意来朵小花，，，

For i = 1 To UBound(arr, 1): dic(arr(i, 1)) = arr(i, 2): Next 改成
---------
For i = 1 To UBound(arr, 1): dic(arr(i, 1)) = arr(i, 2) & space(10) & arr(i,3) &  space(10) & arr(i,4) : Next

FRANKEXCELVB

一把小刀闯天下 发表于 2019-3-21 12:00
自己试一下，满意来朵小花，，，

For i = 1 To UBound(arr, 1): dic(arr(i, 1)) = arr(i, 2): Next 改 ...

老师,您的代码我运行了,第二列/第三列的中文也都出来了, 他们都和货描加在了同一行.

我想把第C列的中文加在---下面那行--- 產品顏色明細  英文之后,10个空格后的后面, 这样英文和中文都能对照上;

D列的中文   加在 包裝  这行英文之后,10个空格后的后面, 这样英文和中文都能对照上;

感谢您对小白我的帮助.

一把小刀闯天下

FRANKEXCELVB 发表于 2019-3-21 12:52
老师,您的代码我运行了,第二列/第三列的中文也都出来了, 他们都和货描加在了同一行.

我想把第C列的中 ...

针对表格中第一行的数据做个输出附件，写上中间空格数。尽量不要用文字表达，也可以上图，，，