[算表] VBA如何依照所选择年份币别设定网址

楼主: moodyblue   2019-02-25 21:28:19
VBA如何依照所选择年份币别设定网址
网志图文版:
http://www.b88104069.com/archives/4371
上一节透过定义月份变量的方式,将期间固定为一到十二月,一次下载2015年度各个月份
的美元汇率。除了特定年度及币别,实务上有时需要下载不同年度、不同币别的历史汇率
资料,甚至是一次下载许多年度和币别的资料,以VBA程式码而言,亦即关于历史汇率还
有两个关键变量:年度及币别。透过定义变量的方式,再搭配For…Next的循环设计,视
情况也许需要加上条件判断,便可以达到自由选择年度及币别的功能。这一节先详尽说明
条件判断语法,接着以先前章节介绍过的Application.InputBox方法,于对话方块输入币
别。
一、稍加修改上一节批次取得汇率的程式码,重点说明条件判断的程式写法。
说明如下:
Sub IfFunction()
编写名称为“IfFunction”的宏程式码。
Dim i As Integer, Month, WebAddress, DesCell As String
Dim是宣告变量,其中i为整数(Integer),Month、WebAddress、DesCell为文字(
String),如果省略,VBA会自动将出现的变量设定为万用类型(Variant)。在电脑的记
忆体仓库里,每种变量类型占用的空间不同,万用类型所占用空间当然是最多的,因此要
养成宣告变量的习惯,一来避免降低Excel执行效率,二来写长程式必须结构严谨,明确
宣告变量便是严谨的要求之一。
For i = 1 To 12
设置1到12的循环,如前面文章所述,这里其实省略了“step 1”,因为对执行效率没有
影响,以整数为循环是一般用法,所以毋须像Dim宣告变量那么严谨。
If i < 10 Then
这个应该蛮容易理解,“If+条件+Then”是VBA规范写法,如图所示,一定要换行之后,
再写满足条件时的执行程式,然后换行“Else”,接着再换行写否则时的执行程式,最后
也一定不能漏掉换行“End If”,在VBA编写条件判断程式,一定要照这样的规矩走,不
然程式无法顺利被读取执行,Excel会跳错。
Month = "0" & CStr(i)
满足i<10条件时,将文字变量Month前面加一个零,这个套用Cstr函数,“CStr(i)”用意
是将整数类型的变量i转换成特定文字,前面“"0"”是加双引号表示文字,和Excel资料
编辑列相同用法。例如在循环i=1的情况下,这里的Month便是文字“01”,依照循环和条
件式跑下来,Month会从“01”一直跳到“09”。
Else
在整个条件语句结构,这里是表示条件不满足、否则的时候要怎么做。
Month = CStr(i)
当“i<10”不成立时,设定Month为转换成文字的i变量,因为一开始的循环是“For i =
1 To 12”,这里的结果便是“10”、“11”、“12”,分别会于第10次、第11次、第12
次循环时赋值。
End If
结束If判断句。
WebAddress = "URL;http://rate.bot.com.tw/xrt/quote/2015-" & Month & "/USD"
设定文字变量WebAddress,在固定的网址中间,套用一个文字变量Month。顺着循环跑“
For i = 1 To 12”,便是2015年1到12月的汇率网址。
DesCell = Cells((1 + (i - 1) * 25), 1).Address
设定文字变量DesCell,搭配循环为工作表座标(1,1)、(26,1)、(51,1)等,“
.Address”意思是取储存格的参照。于此再复习一次,VBA的标准语法为“物件.属性”或
“物件.方法”,这里的物件为Cells,属性为其参照。
Cells(i, 1).Value = Month
Cells(i, 2).Value = DesCell
Cells(i, 3).Value = WebAddress
依照循环顺序,将三个文字变量的值,显示于工作表。
Next i
执行变量i的下一次循环。
End Sub
结束程式。
二、执行结果如图所示。
三、整理台湾银行的币别资料如图片所示,在这里选择比较常见的15种币别。
四、修改程式码如图所示。Dim多增加了变量Year及Currence的宣告,多了两行引用“
Application.InputBox”方法定义变量,其中“Type:=2”为输入文字、“Type:=8”为储
存格参照,关于不同Type型态的说明,可参考第三章第三节“新增工作表视窗”第一步骤
的图片。另外也依照变量设定,更改网址定义:“WebAddress =
"URL;http://rate.bot.com.tw/xrt/quote/"& Year & "-" & Month & "/" & Currence”

五、执行Currence宏程序,首先于跳出来的视窗中,直接输入“四位数西元年份”,范
例是输入“2016”。
六、“选择储存格参照”为“B3”(港币HKD),显示于视窗即为“币别!B3”。
七、如图片所示,成功列出2016年HKD的历史汇率网址。
这一节成功设置了年份和币别的选择,然而仅仅是在工作表上体现储存格参照和网址,用
意在于了解如何适当地定义变量,下一节即以此为基础,进一步取得批次网页资料并修改
格式。
本文内容取自《人人做得到的网络资料整理术》,博客来书店网址:
http://www.books.com.tw/products/0010775391。
延伸阅读:
VBA如何批次取得网页资料
http://www.b88104069.com/archives/4366
VBA如何取得网页资料时自动整理格式
http://www.b88104069.com/archives/4362
Excel如何取得台湾银行汇率
http://www.b88104069.com/archives/4348
作者: Tokaku (慵懒猫的下午)   2019-02-25 22:50:00
原来宣告是为了节省空间,解开一个疑惑
作者: newacc (XD)   2019-02-26 03:50:00
但如果我没有记错,原PO这个宣告写法,i是Integer、Month、WebAddress为Variant、DesCell才是String然后我个人不同意宣告是为了程式执行效率这件事,Variant占空间比较大一些没错(16Byte),但现在内存都是用GB来计数,一两个变量的空间不会是主要考量,而excel在读取运用Variant时的确也会花一些时间判定确切的资料型态,然而这个时间也是你无法察觉的,对储存格的操作、巢状的循环才是运算怪兽
作者: Iories (无法克制)   2019-02-26 06:20:00
推楼上正解
作者: Tokaku (慵懒猫的下午)   2019-02-26 09:55:00
newacc大让我想到千禧年只存西元后二码
作者: newacc (XD)   2019-02-26 15:25:00
其实不太懂欸XD 请问T大想到的关联是什么?BTW,For循环里的IF判断,我会直接用Format(i,"00")来替代至于呼叫一个函式和判断式之间孰优孰劣可能要实测才知道在这个应用里面就算有差也不会差太多,单纯就是提供一个方式给大家参考~
作者: Tokaku (慵懒猫的下午)   2019-02-26 23:16:00
为了省内存,原本1989年,只存89这两个数字。

Links booklink

Contact Us: admin [ a t ] ucptt.com