怎么样根据EXCEL的1列信息生成以它为名字的文件夹，
怎么样根据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
[解决办法]
......建议还是到VB去咨询一下啊
[解决办法]
研究一下
[解决办法]
不是有个VBA专区吗
怎么发这了
