word文档如何转成转Excel? 5
我这有一份A股公司2011年年报发布时间表(word的),但排列顺序是按股票代码来排的,但我想要一份按公司年报发布时间先后来排的,而且想转成Excel,该如何操作呢?表如...
我这有一份A股公司2011年年报发布时间表(word的),但排列顺序是按股票代码来排的,但我想要一份按公司年报发布时间先后来排的,而且想转成Excel,该如何操作呢?表如下所示:
600007 中国国贸 年报 2010 2011-03-24 - - - -
600008 首创股份 年报 2010 2011-04-08 - - - -
600009 上海机场 年报 2010 2011-02-26 - - - -
补充下,word里的不是表格,就是上面那种形式的,谢谢啦 展开
600007 中国国贸 年报 2010 2011-03-24 - - - -
600008 首创股份 年报 2010 2011-04-08 - - - -
600009 上海机场 年报 2010 2011-02-26 - - - -
补充下,word里的不是表格,就是上面那种形式的,谢谢啦 展开
展开全部
直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Word如何转Excel?这个视频告诉你怎么操作,让你轻松上手。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在电子表格第一行先输入标题
代码 公司名称 XX 发布时间 然后把word里面的东西粘到下面,然后点上面的数据-筛选-自动筛选,然后在发布时间里选择升序或降序
代码 公司名称 XX 发布时间 然后把word里面的东西粘到下面,然后点上面的数据-筛选-自动筛选,然后在发布时间里选择升序或降序
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你一个我刚写的简单示例
Sub OkExcel()
'智能Excel 大圣美猴王
Dim wd As New Word.Application
Dim doc As New Word.Document
Dim ws As Worksheet
Dim r As Range
Dim i As Integer, n As Integer
Dim FileName As String, arr
FileName = "C:\1.doc"
Set doc = wd.Documents.Open(FileName)
wd.Visible = False
n = doc.Paragraphs.Count
Set ws = Worksheets(1)
ws.Cells.Clear
Set r = ws.Range("A1")
For i = 1 To n
arr = Split(doc.Paragraphs(i).Range.Text, " ")
r.Resize(1, UBound(arr)) = arr
Set r = r.Offset(1, 0)
Next
doc.Save
doc.Close
wd.Quit
Set r = Nothing: Set ws = Nothing
Set doc = Nothing: Set wd = Nothing
End Sub
不明白,可以HI
Sub OkExcel()
'智能Excel 大圣美猴王
Dim wd As New Word.Application
Dim doc As New Word.Document
Dim ws As Worksheet
Dim r As Range
Dim i As Integer, n As Integer
Dim FileName As String, arr
FileName = "C:\1.doc"
Set doc = wd.Documents.Open(FileName)
wd.Visible = False
n = doc.Paragraphs.Count
Set ws = Worksheets(1)
ws.Cells.Clear
Set r = ws.Range("A1")
For i = 1 To n
arr = Split(doc.Paragraphs(i).Range.Text, " ")
r.Resize(1, UBound(arr)) = arr
Set r = r.Offset(1, 0)
Next
doc.Save
doc.Close
wd.Quit
Set r = Nothing: Set ws = Nothing
Set doc = Nothing: Set wd = Nothing
End Sub
不明白,可以HI
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
优质机构答主
2019-05-08 · 百度认证:广东太平洋互联网信息服务有限公司官方账号,优质数码...
关注
展开全部
华为Mate50 Pro曲面旗舰手机
¥6799
苹果 AirPods Pro 2代
¥1699
索尼65英寸4K HDR专业游戏电视
¥7499
惠普战66五代15.6英寸轻薄本
¥4399
查
看
更
多
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |