Получить абсолютный путь к файлу

@pupsyxa · Регистрация: 27.01.2011

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
мне в программе нужно выгрузить информацию из Exsel в StringGrid. У меня возникла проблема с заданием имени файла. Имя должно быть только абсолютное и файл должен лежать в корне, по другому никак не работает. В процессе работы диск может измениться и программа тогда работать не будет. Помогите, пожалуйста, разобраться.

C++

Variant Excel=CreateOleObject("Excel.Application");
        Variant Book=Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open", "F:\\ListSotr.xls");
        Variant Sheet=Book.OlePropertyGet("Worksheets", 1);
        NN=Sheet.OlePropertyGet("Cells",1,1);
        N=StrToInt(NN);
        for(int i=1;i<(N+2);i++)
                for(int j=1;j<10;j++)
                        grid->Cells[j-1][i-1]=Sheet.OlePropertyGet("Cells",i+1,j);
        if (!Excel.IsEmpty())
        {
         Excel.OleProcedure("Quit");
         Excel.Clear();
         }

пробовала задавать путь так

C++

AnsiString path = ExtractFilePath(Application->ExeName)";
        AnsiString path1;
        path1+=path[1];
        path1+=":\\ListSotr.xls";

пишет "неизвестный тип переменной"

@_Dimon_ · 27.03.2015, 18:28

да вроде и так все нормально, кроме лишней кавычки в 1 строке

C++

1	AnsiString path = ExtractFilePath(Application->ExeName).SubString(1,1) + ":\\ListSotr.xls";

@volvo · 27.03.2015, 18:30

C++

1	AnsiString path = ExtractFileDrive(ParamStr(0)) + "\\ListSotr.xls";

@_Dimon_ · 27.03.2015, 18:32

volvo, спасибо за ExtractFileDrive, не знал

@pupsyxa · 27.03.2015, 19:14 **[ТС]**

на оба варианта пишет "неверный тип переменной"
Работает только когда путь прописан вручную, никакие переменные почему-то не воспринимает
Может есть еще какой-нибудь способ считать данные из Exsel?

@volvo · 27.03.2015, 19:16

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

на оба варианта пишет "неверный тип переменной"

Неправда. Это не варианты виноваты.

C++

1	Variant Book=Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open", WideString(path));

, и все заработает. Приводить к WideString нужно, Excel ожидает именно в этом формате данные.

@pupsyxa · 28.03.2015, 00:03 **[ТС]**

Точно... все работает, спасибо большое, сама сглупила....

@_Dimon_ 1408 / 571 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	27.03.2015, 18:32	4
	volvo, спасибо за ExtractFileDrive, не знал 0

@pupsyxa 0 / 0 / 0 Регистрация: 27.01.2011 Сообщений: 17
	27.03.2015, 19:14 [ТС]	5
	на оба варианта пишет "неверный тип переменной" Работает только когда путь прописан вручную, никакие переменные почему-то не воспринимает Может есть еще какой-нибудь способ считать данные из Exsel? 0

@pupsyxa 0 / 0 / 0 Регистрация: 27.01.2011 Сообщений: 17
	28.03.2015, 00:03 [ТС]	7
	Точно... все работает, спасибо большое, сама сглупила.... 0

Опции темы