北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
学习过程中了解:dim a as 整形、单精度等一些数据类型。难道除了数据类型还能写其他的???
比如: Dim fd As FileDialog
下面这些代码什么意思啊?
Public Function import() '选择导入文件
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim fcount As Integer
Dim wb As Workbook
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim l As Long
fcount = 0
With fd
.AllowMultiSelect = True
.Filters.Add "所有文件", "*.*", 1
.Filters.Add "xls文件", "*.xls", 1
.InitialFileName = ""
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
If Not IsEmpty(vrtSelectedItem) Then
fcount = fcount + 1
Set wb = GetObject(vrtSelectedItem)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "干扰带监控数据", wb.FullName, True, "a8:n" & wb.Sheets(1).[a8].CurrentRegion.Rows.Count + 7
End If
Next
End If
If .SelectedItems.Count = 0 Then Exit Function
End With
Set fd = Nothing
DoCmd.RunSQL "delete * from [干扰带监控数据] where [AS4207A:信道处于干扰带1的平均数目(TCHF) (无)] IS NULL and [AS4207B:信道处于干扰带2的平均数目(TCHF) (无)] IS NULL and [AS4207C:信道处于干扰带3的平均数目(TCHF) (无)] IS NULL AND [AS4207D:信道处于干扰带4的平均数目(TCHF) (无)] IS NULL AND [AS4207E:信道处于干扰带5的平均数目(TCHF) (无)] IS NULL AND [AS4208A:信道处于干扰带1的平均数目(TCHH) (无)] IS NULL AND [AS4208B:信道处于干扰带2的平均数目(TCHH) (无)] IS NULL AND [AS4208C:信道处于干扰带3的平均数目(TCHH) (无)] IS NULL AND [AS4208D:信道处于干扰带4的平均数目(TCHH) (无)] IS NULL AND [AS4208E:信道处于干扰带5的平均数目(TCHH) (无)] IS NULL"
MsgBox "导入文件成功,共导入" & fcount & "个文件"
DoCmd.SetWarnings False
End Function