МОЖЕ ЛИ ДА СТАНЕ

На VBA може ли на ComandButton да се присвой примерно [линк]
и с неговото щракване да се извика сайта.Как трябва да стане.

''''****Tova go slagash v module -------
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Sub TestFile(filePath As String)
'open any file with the associated application
Call ShellExecute(hwnd, "Open", filePath, 0&, 0&, 1)
End Sub
'''''***********---------------------END



Private Sub Command1_Click()
TestFile("[линк]")
End Sub

БЛАГОДАРЯ.ПОЛУЧИ СЕ НОРМАЛНО.

Става малко нахално но който незнае пита.

Създавам текстов файл на VBA по следния начин

Sub CommandButton1_Click()
Dim Proba as String
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A=Fs.CreateTextFile("A:/Kursova.txt",True)
Proba="КУРСОВА РАБОТА 2004"

ТУК ИСКАМ ПРЕДИ ДА ЗАПИША НА ДИСКЕТА ДА Я ФОРМАТИРАМ ИЛИ ИЗТРИЯ
БЕЗ ДА ОТГОВАРЯМ С YES и NO.КАК ТРЯБВА ДА СТАНЕ.


A.WriteLine (Proba)
A.Close

End Sub

Ne znam dali e nuzno da vikash API ot Shell32.dll, kato moze da stane i po po lesen nachin!

Private Sub Command1_Click()

  Dim path As String

  Dim s As String

    path = "C:\Program Files\Internet Explorer\iexplore.exe [линк]"

    s = Shell(path, vbNormalFocus)

End Sub

По принцип си прав, но другото е по-универсално.
Например моя Уиндоус не е на С:, при не-английски Уиндоуси често \Program Files е с друго име и т.н - т.е в някои случаи или ще даде грешка, или трябва да пишеш допълнителни работи.
А при 'трудния' начин всичко това няма значение, файла ще се отвори в програмата която е асоциирана с разширението (това може дори да не е Internet Explorer, в 0.5% от случаите :)

V tozi sluchai stva i po tozi nachin!

 Dim path As String

  Dim s

  path = "explorer.exe [линк]"

  s = Shell(path, vbNormalFocus)

ne vjarvam explorer.exe da bude s drugo ime ili na drug ezik, naprimer експлорер.екзе , tzoi primer raboti kude to i da ti se namira windows-a, lichno e izprobvano
probvai go

естествено че става. Но explorer.exe не е точно IE(iexplore.exe). И нe е ли по-добре човек да види сайта в браузъра който предпочита? А какво ще стане ако ИЕ-то е махнато или скапано, или има инсталирани две различни версии(понякога и това е възможно)?
Просто по тоя начин могат да възникнат проблеми при юзерите които ти не можеш да възпроизведеш и само ще си губиш времето за съпорт

Prekaleno mnogo ako. Ako ima problem vadish edno suobsghtenie, che Interneta ne e korektno konfiguriran i Exit Sub! Kak mozesh da znaesh koi kakuv browser predpochita i polzva vseki user, koito bi mogul da izpolzva dadenata programa? Edinstvennoto neshto koeto e sigurno v Windows, che ima Internet Explorer i che toi e mnogo tjasno svurzan s Explorer!!!? Vaznoto e che rabotri, stava burzo i ne zavisi ot nikakvo API

Mnogo mi e chudno kak mozesh da mahnesh IE ot Windows? Az do sega ne sum uspjal da go naprvaj !

Ами точно де, Prekaleno mnogo ako, и твоето решение зависи от всичките ако.

Kak mozesh da znaesh koi kakuv browser predpochita i polzva vseki user
Не ти трябва да знаеш. Браузъра който юзера предпочита е сетнат като дефолт браузър. Ако използваш API файла ще се отвори в тоя браузър, а по твоя начин - само в ИЕ, ако има такова.

Edinstvennoto neshto koeto e sigurno v Windows, che ima Internet Explorer i che toi e mnogo tjasno svurzan s Explorer!!!?
Ами това не е много сигурно(che ima Internet Explorer ) има програмки като IEeradicator, 98lite, XPlite и т.н които могат напълно или частично да го премахнат. Това че много тясно свързан с ОС е напълно вярно, както и че е по различен начин много тясно свързан в разните версии на уиндоус. И трябва да тестваш какво става от 95 до ХР.

Vaznoto e che rabotri, stava burzo i ne zavisi ot nikakvo API
Работи - в повечето случаи, но може да стане боза
stava burzo i ne zavisi ot nikakvo API - нищо подобно, дори напротив. API така или иначе ще се използва, но в твоя случай неявно, т.е. по бавно. А за това което човека пита, колко бързо ще стане няма абсолютно никакво значение.

Запиши

Dim Fordisk,returnvalue
Fordisk=shell("c:/format.com a:/Q/Y",1)
Трябва да стане,каквото искаш.

С Форматирането се получи.Но изникна друг проблем.
Дава ЕRROR 70 или 71 ,когато не е поставена дискета или е защитена.
как може да се оправи.
Благодаря предварително.

Trjabva da slozish konstrukcii za obrabotka na greshkata s etiket naprimer DiskProblemError:

  On Error Goto DiskProblemError

   .....

   ......

DiskProblemError:

   MsgBox Err.Number             'Tova pokazva greshkata

   Exit Sub                               'Naprimer

Primerno neshto takova za da prihvanesh tezi greshki i da gi obrabotish