关于从excel导入记事本的方法

shsonic

公司有一个财务系统的数据导入需要用到记事本（.txt）文档。
我的流程是先把需要的数据做成excel（这里是通过函数转换的）
然后在需要把excel的数据拷贝进.TXT的记事本，在导入公司的转换系统里面。

我试过网上用object output的方法，但是不知道什么原因（可能是空格的问题）导致公司转换系统不认转换的TXT文件。

所以只能用.COPY或者把excel sheet另存为TXT来解决。
但是问题是保存为TXT文件的时候需要把函数转换为value，而且最上面那个3个不能存放到txt文件中，
有什么方法可以帮我解决一下么？

我的想法是
1，把excel另存为，然后在另存为的表里面把函数粘贴为value，然后删除最上面3行
2，再把这个excel表存为txt文件
3，关闭临时的那张excel表

liulang0808

楼主可以按照自己的想法录制一段宏，然后根据需求再调整下

shsonic

liulang0808 发表于 2022-1-19 13:24
楼主可以按照自己的想法录制一段宏，然后根据需求再调整下

我自己搞成功了，但是想问一下是不是有这个功能，
excel选择，粘贴，然后直接粘贴进去记事本。
这个方法在我尝试的时候，后半段可能不在excel进行，所以什么也没有录下来。

liulang0808

shsonic 发表于 2022-1-19 16:29
我自己搞成功了，但是想问一下是不是有这个功能，
excel选择，粘贴，然后直接粘贴进去记事本。
这个方 ...

excel 另存为文本文件，然后看下格式是否可以
这个是可以录制宏的

另外就是代码直接写入文本文件

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim mypath$, myname$
   
5.   With Worksheets("sheet1")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     c = .Cells(3, .Columns.Count).End(xlToLeft).Column
   
8.     arr = .Range("a4").Resize(r - 3, c)
   
9.   End With
   
10.   s2 = ""
    
11.   For i = 1 To UBound(arr)
    
12.     s1 = ""
    
13.     For j = 1 To UBound(arr, 2)
    
14.       s1 = s1 & Chr(9) & arr(i, j)
    
15.     Next
    
16.     s2 = s2 & vbCrLf & Mid(s1, 2)
    
17.   Next
    
18.   s2 = Mid(s2, 3)
    
19.   Open "f:\test.txt" For Output As #1
    
20.   Print #1, s2
    
21.   Close #1
    
22. End Sub
    

复制代码

chxw68

详见附件。

wanghan519

shsonic 发表于 2022-1-19 16:29
我自己搞成功了，但是想问一下是不是有这个功能，
excel选择，粘贴，然后直接粘贴进去记事本。
这个方 ...

这个动作用ahk不是更方便吗

wanghan519

shsonic 发表于 2022-1-19 16:29
我自己搞成功了，但是想问一下是不是有这个功能，
excel选择，粘贴，然后直接粘贴进去记事本。
这个方 ...

比如ahk创建个快捷键，全部用键盘操作
#a::
Send, ^a^c
Run, notepad
WinWaitActive, 这里得找一下记事本的特征
Send, ^v^s
return
表示，按win+a快捷键执行，全选复制，打开记事本，等记事本显示出来，粘贴保存

shsonic

chxw68 发表于 2022-1-19 19:53
详见附件。

试了下，结果公司转换软件是可以通过的、但是这个VBA没看懂什么意思，太难懂了。