Vbscript CurrentRegion.Select和VBS中的表格格式

我对visual basic非常陌生（1周），基本上我正在尝试自动化一些重复的工作，现在说到点子上，在使用不同数据生成的许多文件中，我需要将所选范围格式化为表（中9），但我现在遇到了一个问题，需要一些帮助，我非常感激，以下是我到目前为止所拥有的>>>

  Option Explicit

Dim strDate, strRepDate, strPath, strPathRaw , strDate2

dim dteTemp, dteDay, dteMth, dteYear, newDate, myDate

myDate = Date()
dteTemp = DateAdd("D", -1, myDate)
dteDay = DatePart("D", dteTemp)
dteMth = DatePart("M", dteTemp)
dteYear = DatePart("YYYY", dteTemp)

If (Len(dteDay) = 1) Then dteDay = "0" & dteDay
If (Len(dteMth) = 1) Then dteMth = "0" & dteMth

strDate = dteYear&"-"&dteMth&"-"&dteDay
strDate2 = dteYear&""&dteMth&""&dteDay

Dim objXLApp, objXLWb, objXLWs

Set objXLApp = CreateObject("Excel.Application")
Set objXLWb = objXLApp.Workbooks.Open("C:\Users\CuRrY\Desktop\"&strDate2&"\Agent Daily Disposition  "&strDate2&".xls")
objXLApp.Application.Visible = True
'start excell
Set objXLWs = objXLWb.Sheets(1)
'objXLWs.Cells(Row, Column ).Value 

  With objXLWs
  objXLWs.Cells(3, 1).Value = "Agent Name"
  'objXLWs.Range("A3").Select
  objXLWs.Range("A3").CurrentRegion.Select


 'End With

正如你们所看到的，我已经到达了CurrentRegion。选择但如何将所选单元格格式化为（介质9）我已经尝试了很多，但都失败了

---

感谢您的帮助，您可以通过SpecialCells子方法配置CurrentRegion（表示范围对象）。尽管您的条件特定于xls工作表，但仍必须遵循specialcells（）方法属性提供的格式。此外，通过使用currentregion属性，该页面假定您有一个xls标头。因此，在尝试合并此属性之前，验证表结构非常重要

例如：

Sub FillIn()
  Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 _
  = "=R[-1]C"
  Range("A1").CurrentRegion.Value = Range("A1").CurrentRegion.Value
End Sub

查看可应用于CurrentRegion的可用属性->

---

MSDN文章->

Thx人我基本上是在自动化我的其余工作我必须在凌晨2点做这些事情，有时会睡着，因为它太无聊了，我今晚会让你知道，Thx我欠你一个：）好的更新-我一直在玩代码，而不是使用Currentregion.select我只是找到了最后一个包含数据的单元格，然后让Vb返回单元格地址，现在我有了在不同日期随不同文件而变化的范围示例（A2:D85），现在如何在Vb中将其格式化为表介质9？