Импорт данных в Excel

[strannick]

Добрый день, уважаемые форумчане!
В первый раз сталкиваюсь с такой задачей. Направьте на путь истинный.
А задача такая: заказ формируется на сайте, выгружается в виде php текста (текстовый файл прилагается). Как возможно программно импортировать эти данные в Excel базу с аналогичной структурой таблицы?
Спасибо заранее за отклики.

[motorway]

Использовать функции для работы с файлами, можно получить построчно переменные и их вставлять в нужное место таблицы.

[strannick]

В том-то и дело, что я в связке PHP и EXCEL ни в зуб ногой. Как имея такой текстовой файл (прикрепленный) импортировать в готовую базу Excel понятно. А существуют ли методы импорта сразу в таблицу Excel, так сказать минуя, промежуточные стадии? Вот в чем вопрос. Подскажите, кто в курсе.

[motorway]

Вот пример кода, который импортирует из этого файла в таблицу Эксела (только надо разобраться с кодировкой - либо перекодировать на VBA, либо при сохранении в PHP с помощью mb_convert_encoding):

Dim sFileName As String
Dim iFileNum As Integer
Dim sBuf As String
Dim Fields As String

sFileName = "c:\temp\lastordercache.php-1.txt"
''//Does the file exist?
If Len(Dir$(sFileName)) = 0 Then
    MsgBox ("Cannot find")
End If

iFileNum = FreeFile()
Open sFileName For Input As iFileNum
Do While Not EOF(iFileNum)
    Line Input #iFileNum, Fields

    k = k + 1
    Cells(k, 1) =Fields
Loop

[strannick]

Попытался проимпортировать, не получилось. Можно прокомментировать строки, а то не совсем понял?

[motorway]

А что пишет? Ошибка есть?
В общем, это стандартный код для получения строк из файла.
Сначала определение переменных, потом проверка на наличие файла.
Потом файл открывается для чтения, и из него берутся строки, и в Cells(k,1)=Fields мы выводим это в первый столбец.

[alex77755]

А просто тупо открыть(записывая макрорекордером)не подходит?

    Workbooks.OpenText Filename:="D:\КиРпИчИ\%%%Временные\lastordercache.php.txt" _
        , Origin:=-535, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

[strannick]

Сообщение от motorway

А что пишет? Ошибка есть?
В общем, это стандартный код для получения строк из файла.
Сначала определение переменных, потом проверка на наличие файла.
Потом файл открывается для чтения, и из него берутся строки, и в Cells(k,1)=Fields мы выводим это в первый столбец.

Выскакивает окошечко "Cannot find" а потом ругается на строчку
Open sFileName For Input As iFileNum

Сам файл положил по пути, указанном в макросе C:\Temp

[motorway]

Проверьте точный путь к файлу, его название.