Я обрабатываю электронную таблицу Excel в Access и преобразую букву столбца Excel в число, используя код, указанный ниже. ColRef
имеет значение "F"
. Запуск функции с точно таким же вводом и процессом иногда приводит к ошибке
«Компьютер удаленного сервера не существует или недоступен»
, а иногда дает правильный результат 6.
Любая помощь, которую вы можете оказать, будет высоко оценена.
' The function below converts a column reference (A - IV) to a column number between 1 and 256:
Public Function ColRef2ColNo(ColRef As String) As Integer
ColRef2ColNo = 0
On Error Resume Next
ColRef2ColNo = Range(ColRef & "1").Column
End Function