Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Обработка даты https://www.cyberforum.ru/ vba/ thread941203.html
Уважаемые форумчане, помогите решить задачку. А проблема такая: Нужен код который заносит в ячейки следующую информацию. Ячейка А1 – первая дата текущего месяца (например 1.08.2013) Ячейка B1 – последняя дата текущего месяца (например 31.08.2013) Ячейка С1 – текущая дата месяца (например 21.08.2013) Ячейка D1 – количество дней в текущем месяце в текстовом формате (например 31) Наверно...
VBA Помощь с ComboBox
Доброго времени суток. Нужна помощь с ComboBox. Суть: когда вбираемый в ComboBox1 вариант "Тюнера" ( они подкрашен синего цвета) то подтягивается список моделей тюнером ( он навивается numt) если вариант "модем" (розового цвета) то подгружается список моделей модемов (навивается numm). Вариант с периферией аналогичен. Как так сделать? Файл во вложении. Так же интересует вопрос о...
VBA Выполнения запроса Access В БД access есть запрос: Query1. Как из VBA дать команду на его исполнение? https://www.cyberforum.ru/ vba/ thread941104.html VBA Нахождение минимального значения из массива https://www.cyberforum.ru/ vba/ thread941091.html
Подскажите, в чем моя ошибка. Есть задача: Найти минимальный из элементов массива А(5), принадлежащий интервалу (2;14) При выполнении макроса, при вводе любых чисел результат выдается = 0. Не понимаю в чем ошибка Sub lr() Dim A(1 To 5) As Integer, B(1 To 5) As Integer, i As Integer, k As Integer i = 1 For k = 1 To 5 A(k) = InputBox("Vvedite " & k & "ch")
VBA Чем является моя программа?
Уважаемые коллеги, скажите пожалуйста ... или выскажите свое мнение если желаете. 1. Могу ли я назвать свою программу-файл(свой файл со встроенным кодом VBA) типа xls(xlsb, к примеру) - лицензионным софтом? 2. Является ли моя программа-файл(свой файл со встроенным кодом VBA) типа xls(xlsb, к примеру) - объектом автогрского права? и чем она(он) является в действительности?
VBA Поиск сотрудников в Excel Ребята, выручайте.. Есть база с ФИО с сотрудниками. И даты увольнения этих сотрудников (+ даты нахождения в ученическом и декретном отпуске... ). Нужно чтобы в столбец "Результаты аудита" автоматом вносилось стостояние сотрудника. Т.е. если сотрудник был уволен, однако в столбце "последний вход в систему в Windows" был произведён вход после увольнения или (в промежутке между датами декретного... https://www.cyberforum.ru/ vba/ thread940872.html
VBA Сводная таблица, превышение количества столбцов Добрый день ! В макросе формируется сводная таблица из dbf-файла командой: ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:="" & fname & "!База_данных") _ .CreatePivotTable TableDestination:=Range("A" & Trim(Str(nomstr))), TableName:="СводнаяТаблица" Set pvt = ActiveSheet.PivotTables("СводнаяТаблица") https://www.cyberforum.ru/ vba/ thread940832.html VBA Наличие таблицы в БД
Как проверить наличие таблицы(запроса и тд.) в БД access средствами VBA?
VBA Вкладочный вид базы Excel https://www.cyberforum.ru/ vba/ thread940721.html
Доброго времени суток, основная задача состоит в корректировке большой базы с данными для более удобного использования пользователям. вот логический код программы: Вводим переменную Заполняем данными из выделенной ячейки если они отличаются от данных в переменной смещаем строку, переносим(вырезаем) спускаться в низ Если данные ячейки одинаковы с содержанием переменной - удалить...
VBA Перебор значений из ListBox Здравствуйте! Не могу справиться с задачей Есть три листбокса со значениями и допускаемым множественным выбором.На основе выбранных значений идет запрос к бд acceess в которой находятся таблицы именованные по типу listbox1.list(n)|listbox2.list(n)|listbox3.list(n) Проблема в том, при выборе listbox1.list(1),listbox1.list(2),listbox2.list(1),listbox3.list(1) запрос должен быть вида... https://www.cyberforum.ru/ vba/ thread940712.html
VBA Активация листа
Доброго времени суток форумчане. Помогите заставить работать ниже приведенный код. Сразу уточнюсь что лист с названием из ячейки D1 есть в этой книге точно, так как создается программно. Нужно просто активировать лист с этим именем, для дальнейшей работы с этим листом. Прописать название листа заранее нет возможности, так как названия присваиваются программно в зависимости от того с каким...
VBA Поиск значения в столбце https://www.cyberforum.ru/ vba/ thread940541.html
Добрый день! Помогите пожалуйста в решении моей проблемы! Имею 2 таблицы, на первой зарегистрированный пробы продукта. Необходимо из активной строки первой таблицы перенести данные в строку другой таблицы в определенные ячейки, но перед этим выполнить проверку на наличие этой пробы во второй таблице, если проба присутствует, то просто дополнить данными незаполненные ячейки, если пробы с таким...
1563 / 364 / 100
Регистрация: 13.11.2008
Сообщений: 754
23.08.2013, 15:49 0

Проверка URL адреса на существование - VBA - Ответ 4978871

23.08.2013, 15:49. Показов 4513. Ответов 10
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Надо чуть изменить:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CheckURL()
    Dim strFullFileName As String
    strFullFileName = "https://www.cyberforum.ru/vba/thread941319.html"
    If CheckState(strFullFileName) = False Then
        MsgBox "Сайт недоступен:" & vbCr & strFullFileName
    Else
        MsgBox "Сайт доступен:" & vbCr & strFullFileName
    End If
End Sub
 
Function CheckState(strAdr As String) As Boolean
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", strAdr, False
        .Send
        If Err.Number = 0 Then
            If .Status = 200 Then CheckState = True
        End If
    End With
End Function


Вернуться к обсуждению:
Проверка URL адреса на существование VBA
3
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.08.2013, 15:49
Готовые ответы и решения:

Проверка листа на существование
Ребята подскажите как узнать существует лист или нет??? Делаю так: Sub Добавление_листа() ...

Циклическая проверка на существование папки и ее создание
Ситуация звучит таким образом: необходима небольшая программа которая в определенной директории...

Проверка адреса в ячейке
Добрый день уважаемые форумчане! Подскажите пожалуйста мне как решить следующую задачу: Есть...

Проверка на существование proxy адреса
Добрый день У меня такой вопрос Каким кодом я могу осуществить проверку на существование proxy...

10
23.08.2013, 15:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.08.2013, 15:49
Помогаю со студенческими работами здесь

Проверка введенного url адреса на корректность
Здравствуйте, требуется ваша помощь не могли бы подсказать как организовать проверку введенного...

[C++] Взятие адреса конструктора. Физическое время существование объекта.
1. конструктор. class A { int a; public: A():a(555){}; ~A(){}

Проверка на существование
Есть один txt-файл. В нем построчно написаны файлы и их вес в байтах. Пример: files.rar 12345678...

Проверка на существование
есть таблица Client со столбцами (Name,LastName,MobilePhoneNumber,Email) и нужно проверить на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru