вот пример (к сожалению пост переносился из другого подфорума, и приложение видимо не сохранилось)
Сам скрипт:
[vba]Код
Private Sub pp3_Click()
If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\îòêðûòü_doc_ðàáîòàåò.doc"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub
Private Sub CommandButton1_Click()
If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\à_êàê_îòêðûòü.xlsx"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub
[/vba]
Верхний работает нормально. Не работает Нижний который пытается открыть xls.
Надеюсь никого не запутал
[moder]1. Пользуйтесь спецтегами оформления. Для кода - кнопка #, полный список - ссылка на него в Правилах форума.
И при копировании переходите на русский язык в приложении, откуда копируете. Тогда не будет кракозябрин.