Есть код:

 

...

Dim b As Boolean
FF = Text1.Text
b = CreateXlBook("FF", "")

...

 

Public Function CreateXlBook(sWbName As String, sDirName) As Boolean

  Dim objXLApp As Object
  Dim objWbNewBook As Object

  CreateXlBook = False

  Set objXLApp = CreateObject("Excel.Application")
  If objXLApp Is Nothing Then Exit Function

  objXLApp.SheetsInNewWorkbook = 1

  Set objWbNewBook = objXLApp.Workbooks.Add
  If objWbNewBook Is Nothing Then Exit Function
  If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function

  objWbNewBook.SaveAs ("\" + Text1.Text + ".xls")
  CreateXlBook = True
  Set objWbNewBook = Nothing
  objXLApp.Quit
  Set objXLApp = Nothing
  CreateXlBook = True

End Function

 

Почему этот файл, упорно сохраняется на диск D: в корень, как его заставить сохраниться в директорию где висит прога? и че еще вписать, чтоб после сохранения на диск он открывался сверху?

если строку

  objWbNewBook.SaveAs ("\" + Text1.Text + ".xls")

 

изменить на

  objWbNewBook.SaveAs (Text1.Text + ".xls")

то сохраняет в "Мои документы"

 

если

  objWbNewBook.SaveAs (Text1.Text)

то сохраняет в "Мои документы"

 

и вообще если вместо "\" рисовать че угодно, то максимум эта лабуда добавляется к имени файла перед текстбоксом....в худшем если какойнить знак, то просто не пишется...

 

ну как же его заразу загнать в папку проги и заставить еще и открыть злосчастный файл....поможите плизззззззз