Vba在服务器上生成文件目录,自己编写了一个自动生成目录下文件夹及文件的程序！...

Sub AutoWriteRecord()

Dim ThisWorkbook As Workbook, ThisWorksheet As Worksheet

Dim CreatingRange As Range, DataRange As Range, CreatingArray() As Variant

Dim i As Long, j As Long, k As Long, TotalNum As Long

Dim MyFormat As String

'设置屏幕不可更新，该语句可节约部分程序运行的时间

Application.ScreenUpdating = False

'设置Excel中的公式计算为手动重算，因该工作簿数据计算较多，可节约大量的程序运行时间，经笔者测试大约节约100倍左右

Application.Calculation = xlManual

'从B2获取文件夹目录，若没有目录，则取当前活动工作薄所在目录，并写入到B2单元格

Set ThisWorkbook = ActiveWorkbook

Set ThisWorksheet = ThisWorkbook.Worksheets("一览表")

If ThisWorksheet.Range("B2").Value <> "" Then

MyPath = ThisWorksheet.Range("B2").Value

Else

MyPath = ThisWorkbook.Path

ThisWorksheet.Range("B2").Value = MyPath

En