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