PTT
Submit
Submit
选择语言
正體中文
简体中文
PTT
Office
[问题] Excel 汇入web 保留0 的方法
楼主:
TWCFP
(祝大家赚大钱^^)
2015-06-21 11:24:49
软件:MS Excel
版本:2007
大家好!!
想请问一下,有没有办法用Excel 汇入网页资料的时候把
数字格式转成文字
在汇入Excel呢?
因为我把
http://www.emega.com.tw/js/StockTable.htm
这个网页资料用汇入的方式
像台湾50原本它的代号是0050的
但是汇入以后,它的代号会变成50 而已
想必是因为Excel把它判定会数字的关系....
刚才用录制的方法
把它的VBA 码,录下来了
希望有大大可以指点一二,感激不尽!!
Sub test()
'
' test Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.emega.com.tw/js/StockTable.htm",
Destination:=Range("$A$1"))
.Name = "StockTable"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
作者:
geo
(geo)
2015-06-21 13:08:00
目前用取代方式将原资料弄的干净一点,11A-->A,少数带标记资料还是用人工看..但已经大幅降低眼力、提升效率, 谢谢s大!噗..推错,抱歉。
作者: soyoso (我是耀宗)
2015-06-21 14:11:00
改以createobject("internetexplorer.application")的方式试试这方面想到的是range.numberformat来变更储存格格式再以for each...next配合left+len来排除最后一个特殊字符且保留0,
https://goo.gl/774voy
楼主:
TWCFP
(祝大家赚大钱^^)
2015-06-21 21:19:00
谢谢你啦!!大哥说的这几个语法去上VBA的课老师刚好都没有教到....ORZ我来去google看看它们的用法再研究看看谢谢你啦!!^^用问题再来请益QQ这里有SOYOSO大哥帮大家解决问题真好^^
作者: soyoso (我是耀宗)
2015-06-21 21:24:00
^^
继续阅读
[算表] 请问excel计算资料变动量
geo
[问题] 自己设计的word样式怪怪的
HanGow
[算表]如何在A工作簿运行代码,提取B工作簿,得到C
yyingx
Re: [算表] 库存余数整理
evy155
[问题] MathType位子上移,以及如何在WORD设热键
wwssadad
[算表] EXCEL同一个表格打印的问题
swishs
[算表] 分组后,同分不同名次
cyc0529
[问题] WORD2010=表头斜线2条以上设定
nohara001
[文件] Word大小写问题
babychanbo
[算表] Excel 关于 关于行列数不固定之表单
pikachuicer
Links
booklink
Contact Us: admin [ a t ] ucptt.com