有一文本文件内容如下图所示：
股票代码 昨日收盘 今日收盘
000001 23.02 24.53
000002 34.53 37.54
000003 8.65 8.12
000004 3.45 3.47
000005 12.05 13.23
000006 32.56 32.56
000007 15.65 15.78
编写VBA程序，从该文本文件中读入数据到Excel的三个数据列中，并自动生成一列“方向“，其取值根据今日和昨日收盘价生成，分别为“上涨”，“下跌“，“持平”。然后将数据输出到另外一个文本文件中保存。
编写VBA程序，从文本文档中读取数据到Excel表格中，在复制入另一个文本文档中
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
2条回答 默认 最新
CSDN专家-showbo 2021-07-06 15:27关注用Scripting.FileSystemObject对象读取text文件后split下得到行在遍历行写入当前运行vba的xlsm第一个工作簿中就行了
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏举报 分享
- 2021-07-06 15:14回答 2 已采纳 用Scripting.FileSystemObject对象读取text文件后split下得到行在遍历行写入当前运行vba的xlsm第一个工作簿中就行了
- 2020-08-12 17:09回答 2 已采纳 第一种方式，参数"all_transport1()"的括号不需要，只提供宏名称就行了 ``` import win32com.client import os.path xlApp =
- 2022-02-13 15:07回答 1 已采纳 Range("A#").Value = i-------cells(a,1).valueRange("B#").Value = i-------cells(a,2).valuecells可以接受两个变
- 2020-12-21 17:40weixin_39525300的博客 LEFT从文本字符串62616964757a686964616fe4b893e5b19e31333366303138的第一个字符开始返回指定个数的字符。格式为LEFT(text, [num_chars])。软件工具：EXCEL20131、假设要从B3中截取前4个字符。2、在合适单元格中...
- 2022-09-09 16:18回答 1 已采纳 添加一个模块，弄一个函数 Sub XXX() Range("A2:F1000").Select Selection.Copy Workbooks.Open Filename:
- 2021-05-18 11:12回答 3 已采纳 代码有点小问题，做了些修改，点击openword过程，按f5后可以打开word文档了 '来源：https://zhidao.baidu.com/question/22140033.html '
- 2022-06-06 09:24回答 3 已采纳 通过vba可以实现
- 2021-02-27 19:32小小明-代码实体的博客 今天看到了一个很奇怪的问题，要读取Excel文件的文本框中的文本，例如这种： 本以为openxlpy可以读取，但查看openxlpy官方文档并没有找到相应的API，咨询了几个大佬，他们也没有处理过类似的问题。 无赖之下，我就...
- 2017-12-02 12:51回答 1 已采纳 https://book.2cto.com/201305/23454.html
- 2022-01-07 21:13回答 1 已采纳 Option Explicit Sub test()Dim I As LongDim tmpString As String With ActiveSheet For I = 1 To .Use
- 2021-04-09 21:31回答 7 已采纳 如果写VBS： Sub a() Dim fso Dim fld Dim fil Dim xls Dim bok Dim sht Dim i
- 2024-02-13 19:03PythonFun的博客 表格在word文档中常见的文档元素之...操作word文件时有时需要提取文件中多个表格的内容到一个新的文件，甚至有时还会要提取题注信息。今天，给大家分享两种批量提取文档中表格的两种方法，分别是VBA法和Python法两种。
- 2022-06-16 05:48回答 1 已采纳 Function coilv(v) As String '下一行是调试出错误的位置 If v = "V88" Or v = "V89" Then coilv = "2
- 2022-03-19 12:53兰振lanzhen的博客 批量提取ppt文件中的文本和表格信息并存入word文档中
- 2023-07-07 15:50再快一步`的博客 完成了xlwings插件的加载后，就可以在该选项卡下导入并调用Python自定义函数，准备一个带宏工作簿（扩展名为”.xlsm“）和一个包含自定义函数的Python代码文件（扩展名为".py"）。常用的操作模式有两种。上面介绍的...
- 没有解决我的问题, 去提问
悬赏问题
- ¥15 使用C#，asp.net读取Excel文件并保存到Oracle数据库
- ¥15 C# datagridview 单元格显示进度及值
- ¥15 thinkphp6配合social login单点登录问题
- ¥15 HFSS 中的 H 场图与 MATLAB 中绘制的 B1 场 部分对应不上
- ¥15 如何在scanpy上做差异基因和通路富集？
- ¥20 关于#硬件工程#的问题，请各位专家解答！
- ¥15 关于#matlab#的问题：期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707，使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错，维度不匹配