1、全选Excel表格=>格式=>常规=>文本
2、ALT+F11=>插入=>模块:
Sub Change()
Dim i As Integer, j As Integer
Dim strValue As String
For i = 1 To 最大行数
For j = 1 To 最大列数
Cells(i, j).Select
strValue = ActiveCell.Value
ActiveCell.FormulaR1C1 = strValue
Next j
Next i
End Sub
3、运行(F5)Change过程
4、SQL里的设为字符型,导入时,不允许NULL值。