怎样根据 excel内容批量生成生成文件夹 100分 不够再给

Question

怎么样根据EXCEL的1列信息生成以它为名字的文件夹，
例如：excel是这样的   A       B      C
                    200901
                    200902
                    200903
生成以200901、200902、200903为名的文件夹，代码如下，但是说用户类型未定义，怎么会事啊，小弟未接触过VB，各位路过大侠请指教！
Private Sub Command1_Click()
Dim xlApp     As Excel.Application
  Dim xlBook     As Excel.Workbook
  Dim PointSheet     As Excel.Worksheet
  Set xlApp = CreateObject("Excel.Application")         '创建EXCEL对象
  Set xlBook = xlApp.Workbooks.Open("e:\aa.XLS")         '打开已经存在的EXCEL工件簿文件
  xlApp.Visible = False       '设置EXCEL对象不可见
  Set PointSheet = xlBook.Worksheets.Item(1)         '设置活动工作表
    
  Dim i     As Integer
  For i = 1 To PointSheet.UsedRange.Rows.Count
          Range("A" & i).Select
          MsgBox ActiveCell.FormulaR1C1
            
          Dim fs, a
          Set fs = CreateObject("Scripting.FileSystemObject")
          Set a = fs.CreateFolder("e:\" & ActiveCell.FormulaR1C1)
    
  Next
  xlApp.Quit
  Set xlApp = Nothing
  Set xlBook = Nothing
  Set PointSheet = Nothing
End Sub

Answer 1

CSDN的分没有什么用稀罕的，这种标题还是少提为好。

Answer 2

有分意义不大，没分更没意义，唉，现在好多技术论坛都存在这个困境．楼主可能是根本就没引用Excel库吧

Answer 3

Dim xlBook As Excel.Workbook
不引用这种，别人电脑上没装EXCEL没法用，不想要你的分

Answer 4

应该是未引用Excel的问题,
'office 2003 工程中引用 Microsoft excel 11.0 Object;

Answer 5

"工程"中引用 Microsoft excel 11.0 Object