макрос в Excel

Помогите пожалуйста с макросом.
есть вот такое чудо:
Sub Макрос3()
'
' Макрос3 Макрос
'

'
Workbooks.OpenText Filename:="E:\2012_10_25 На подсчет_sut.txt", Origin:= _
1251, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), _
Array(16, 2), Array(29, 2), Array(42, 2), Array(52, 2), Array(64, 2), Array(76, 2)), _
TrailingMinusNumbers:=True
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 12.86
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 20.14
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.ColumnWidth = 13.86
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.ColumnWidth = 10.86
ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.ColumnWidth = 13.14
ActiveCell.Offset(0, 4).Columns("A:A").EntireColumn.ColumnWidth = 12
ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.ColumnWidth = 11.57
ActiveCell.Offset(0, 6).Columns("A:A").EntireColumn.ColumnWidth = 15.43
End Sub


*********
как сделать что бы он выдал запрос на то какой файл открыть?
создавал я его через "Запись макроса"

Это сообщение отредактировал Edaries - 26.10.2012 - 09:22

Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
Пример:

Это сообщение отредактировал amdx - 26.10.2012 - 10:19

amdx
Чесс говоря с VB я не дружу и потому не понимаю что удалить и куда вставить то что ты мне написал

Edaries
наверное,
Workbooks.OpenText Filename:="E:\2012_10_25 На подсчет_sut.txt"
надо заменить на
fName = Application.GetOpenFilename ("Text Files (*.txt)", "*.txt")
Workbooks.OpenText Filename:=fName

как мне кажется

DeniskoBalbes, не совсем. Если быть поточнее, то

Спасибо.
Допилил до такого состояния:

Это сообщение отредактировал Edaries - 26.10.2012 - 11:47

Не, это не проканает. Фишка в том, что возвращается строка, в которой написано "False".
Это VBA, детка

но она работает. а то что ты дал выдавало ошибку
щас запускаю макрос-выдает окно открытия файла, указываю файл а остальное делает сам. щас буду дальше допиливать макрос на перерасчеты, конвертирование и сохранение.
если чо я еще пару вопросиков задам?

Это сообщение отредактировал Edaries - 26.10.2012 - 11:51

Конечно, fname - это строка, она никогда не будет равна логическому False. Так же как и True. Не знаю, может это в 2003 оффисе и позже немного изменили работу функции.

amdx
я не знаю. я ща в 2010 сижу, кавыряюсь, моск пухнет.

еще одна проблема:
Исходник после импорта

добавил к макросу:

и должно получиться так:

а получается вот так:

хде я опять накосячил?

имхается мне, формат ячеек менять надо
а как- не готов сказать, года 2 не кодил, забыл все

rерlасе применяется к строке. Поэтому результатом будет тоже строка. Вообще, при обращении к свойству Value ячейки, преобразование в число ведется автоматически, если выпоняется математическая операция. Например:

преобразует ячейку к числу, независимо от того, запятая там или точка
Так что, имхо, rерlасе не нужен вообще

Это сообщение отредактировал amdx - 26.10.2012 - 13:39

DeniskoBalbes
amdx
Данные со счетчика я получаю именно в таком виде в формате txt (рукалитсо)

если попадаются цифры типа "23.06" то эхель на стадии импорта сам превращает в дату 23.июнь (рукалитсо)
потому приходится импортировать с форматом ячейки "текстовый"
зпт нужны что мона было считать.

а к колонке? Нам нужно работать с колонками B:G. на А пох

Это сообщение отредактировал Edaries - 26.10.2012 - 13:47

Ну так епт, если во время импорта, то нужно было ему сказать про типы данных в каждой колонке при импорте. Для этого служит параметр FieldInfo. А у тебя в нем указано Array(Номер_стобца_в_файле, Тип_Значения), где тип_значения = 2, то есть как текст. Однако номера столбцов прыгают от 0 аж до 76. Если в файле 7 столбцов, то делов то пронумеровать их в Array и задать текстовый формат (2) заместо General. Тогда число в дату не превратится.

Не так объяснил. Поскольку Columns это Range - то rерlасе работает с текстом каждой Cell из Range, возвращает результат в виде строки и записывает его обратно.

Это сообщение отредактировал amdx - 26.10.2012 - 14:36

брррр

что мне вырезать из макроса и что вставить?
или мож его нах до понедельника?

Так я же написал. Заменить OpenText с параметрами на этот кусок.

Получилось

Скинь кусок текстового файла. Попробую поиграться.
Только не пост, а в виде файла.

Это сообщение отредактировал amdx - 26.10.2012 - 15:40

Файл-то без разделителей. Поля форматированы пробелом. В принципе можно грузануть каждую строку в одну ячейку, а потом макросом раскидать по остальным. Не удивительно что офис криво его грузит. Чуть позже выложу что получилось.

дык вот и я про тож. в таким виде я данные и получаю со счетчика.

бля-я-я. как молоды мы были!
не, нельзя строить базу в ехеле. глюки пойдут, он не для этого.

Это не база.