一个读取文本的问题？

czr0373 · 发表于 2018-9-2 22:59

下面直接从文本里读取数据的方式
改为，
直接从当前表里，读取手工从文本复制粘贴过来的数据
如何表达呢？
……
Dim arr As Variant, brr() As Variant
Dim i As Integer, j As Integer
     Open ThisWorkbook.Path & "\wen.txt" For Input As #1
   arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
   Close #1
   ReDim brr(1 To UBound(arr) + 1, 1 To 20)
   m = 0
……

小花鹿 · 发表于 2018-9-2 23:02

把单元格区域赋值给数组

czr0373 · 发表于 2018-9-3 08:53

小花鹿发表于 2018-9-2 23:02
把单元格区域赋值给数组 ...

十分期待，能否赐教

a6681316 · 发表于 2018-9-3 09:32

ActiveSheet.Paste

pshl7 · 发表于 2018-9-3 11:27

你要的应该是读取粘贴板的数据，不是文本文件的数据。
不过不明白你为什么要手工复制，其实可以从文本中自动找出需要的内容，要手工操作的话已经失去意义了。

czr0373 · 发表于 2018-9-3 15:50

pshl7 发表于 2018-9-3 11:27
你要的应该是读取粘贴板的数据，不是文本文件的数据。
不过不明白你为什么要手工复制，其实可以从文本中自 ...

你会吗?也可以练练手

czr0373 · 发表于 2018-9-3 16:00

可能问题太难，没人能搞定吧

czr0373 · 发表于 2018-9-3 16:01

a6681316 发表于 2018-9-3 09:32
ActiveSheet.Paste

这一步还不到paste的时候，获取要先处理一下

a6681316 · 发表于 2018-9-3 16:12

czr0373 发表于 2018-9-3 16:01
这一步还不到paste的时候，获取要先处理一下

为什么需要从Txt里面去复制？直接获取内容，获取到了内容然后在做处理不就可以了？你的需求在详细一点

czr0373 · 发表于 2018-9-3 16:16

a6681316 发表于 2018-9-3 16:12
为什么需要从Txt里面去复制？直接获取内容，获取到了内容然后在做处理不就可以了？你的需求在详细一点

不是从txt里面复制来的，而是从另一款专业软件里直接复制来的。1种方法，如我上面所示，复制过来保存为文本读取。2.省掉这一步，直接从剪贴板里读取，如上面我所需。

		自动登录	找回密码
密码			免费注册

[求助] 一个读取文本的问题？