case combobox.itmeindex of
0:begin
      opendialog1.InitialDir :='c:프로그램새폴더a';
      if OpenDialog1.Execute then
      begin
         v.workbooks.open(opendialog1.filename);
      end
      else exit;
    end;
     ----------주절주절-----------
1:begin
    opendialog1.InitialDir :='c:프로그램새폴더b';
    if OpenDialog1.Execute then
     begin
       v.workbooks.open(opendialog1.filename);
    end
    else exit;
    end;
     ----------주절주절-----------
end;

case문에 위와 같이 begin~end 블럭을 씌워주세요!

-_-+ @?$#%?

제가 테스트 해봤는데 잘되던데여?

코드는 잘못된 점이 없어 보이니 다른 문제가 있을듯 보입니다.

ComboBox 의 인덱스를 다시 디버깅 해보시고,

b 디렉토리가 명이 아래 적으신 디렉토리 명과 같은지 확인다시한번

해보시고, 이것저것 디버깅 해보세요.

그럼~ 항상 즐거운 프로그래밍 하시길~~

  case Combobox1.ItemIndex of
    0 :
      begin
        OpenDialog1.InitialDir :='c:프로그램새폴더a';
        if OpenDialog1.Execute then
        begin
          //v.workbooks.open(opendialog1.filename);
        end
        else exit;
      end;
    1 :
      begin
        OpenDialog1.InitialDir :='c:프로그램새폴더b';
        if OpenDialog1.Execute then
        begin
          //v.workbooks.open(opendialog1.filename);
        end
        else exit;
      end;
  end;