Релиб / Программирование / VBA

Адаптация кода для 64 битных систем (x64)

Perceff — Fri, 05 Mar 2010 13:45:56 GMT

всем, здравствуйте. помогите пожалуйста решить проблему.
Есть книга с макросами, написанная для 32 битной платформы - там все работает ок. Сейчас у меня win7 x64 и Office 2010 x64 и возникла ошибка в коде:
[code]Private Declare Function GetUserNameDomain Lib "Secur32.Dll" Alias "GetUserNameExA" (ByVal NameFormat As EXTENDED_NAME_FORMAT, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long
Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal username As String, ByVal level As Long, bufptr As Long) As Long
Private Declare Function GetUserLoginName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long[/code]
Excel просит обновить код и использовать параметр PtrSafe???
Може подсказать как и что переписать для того чтобы работало как x86 так и x64

Пролонгация даты в MS Excel

Xakand — Sat, 09 Jan 2010 12:32:30 GMT

Имеется база данных заказов на размещение рекламы в формате MS Excel 2003.

Необходимо создать макрос для включения отображения текста отдельных колонок в виде маски (как пароль) при открытии документа и отображения текста в нормальном виде после ввода пароля.

Спасибо.

sql i vba

rovi221 — Wed, 23 Dec 2009 13:39:33 GMT

необходимо сделать выборку из таблицы dbf

поле index - string

Dim n As String

n = "157164"

Set rs = .Execute("SELECT Index, OpsName,PrBegDate, PrEndDate, DelivType,DelivPNT, Baserate FROM DivLim WHERE index=n")

при выполнении на этой строчке ошибка

"Отсуствует значение для одного или нескольких требуемых параметров"

если беру другое поле с типом числовое и ставлю WHERE lala=1, то выборка происходит

Открыть Workbook

Skovorodin — Tue, 22 Dec 2009 15:08:53 GMT

Как открыть существующую Workbook на заданном листе (Worksheet) с помощью макроса?

Например:

Application.Workbooks("Book1").Worksheets("Sheet3")

вставка полей из таблицы access в документ word

Drimon — Sat, 12 Dec 2009 21:54:22 GMT

надо написать две программы для вставки полей из таблиц в TextBox в документе word. Для одной кнопки написал, а для второй пишу тоже самое, но работать не хочет... выдает ошибку 3464...
[b]вот тексты обеих прог
1.работает[/b]
Private Sub CommandButton1_Click()
Dim bd1 As DAO.Database
Dim r1 As Recordset
Dim wd As Word.Application
Dim k1 As String, s As String, m As String
Set bd1 = OpenDatabase("E:\Dima\University\Computer tecnology\Лабы\Склад\db1.mdb")

k1 = UserForm7.ComboBox1.Text
s = "Select * From [Товары] Where [Товар]= """ & k1 & """"
m = InputBox("Введите цену товара")
Set r1 = bd1.OpenRecordset(s)

Set wd = CreateObject("Word.Application")

wd.Documents.Open Filename:="E:\Dima\University\Computer tecnology\Лабы\Склад\reklama.doc"
wd.Visible = True
wd.Documents("reklama.doc").TextBox1.Text = r1!Товар
wd.Documents("reklama.doc").TextBox3.Text = m
wd.Documents("reklama.doc").TextBox2.Text = r1!Описание

End
End Sub
[b]2.не работает[/b]
Dim bd1 As DAO.Database
Dim r1 As DAO.Recordset
Dim w1 As Word.Application
Dim k As String, s1 As String, m As String
Set bd1 = OpenDatabase("E:\Dima\University\Computer tecnology\Лабы\Склад\db1.mdb")
k1 = UserForm8.ComboBox1.Text
s1 = "Select * From [контракты] Where [номер] = """ & k1 & """"
Set r1 = bd1.OpenRecordset(s1)-------строка где выдает ошибку
UserForm8.TextBox1.Text = r1!номер

Перенос информации из ячеек Excel в Word

Raven — Sat, 12 Dec 2009 15:38:57 GMT

Добрый день всем. Люди добрые помогите разобратся с таким заданием:

Перенос текстовой и числовой информации из ячеек Excel в уже приготовленный документ Word по нажатию на кнопку(тип объекта Button)

В инете искал подобные примеры но очень мало инфы нашел не помогло!

Кто нить может помочь?!

как из Access открыть файл, используя диалоговое окно "Открыть файл"

Elenko — Thu, 10 Dec 2009 18:38:54 GMT

В БД Access надо открыть файл Excel. Причем файл для открытия должен выбрать сам пользователь.

поиск и удаление строки

rovi221 — Wed, 02 Dec 2009 10:57:34 GMT

помогите

в таблице в нужном столбце найти строку по значению и удалить ее

как правильно записать формулу для цикла do

uvexx — Wed, 28 Oct 2009 16:11:06 GMT

Есть формула:

ActiveCell.FormulaR1C1 = _
"=наличие_файла(""\\file\\44-я 26.10-01.11\""&RC)"

Как записать RC чтобы формула писалась в нужной ячейке, т.е.

работает do loop с переменной а. куда в RC и как нужно добавить переменную а???

Корректное закрытие ОКНА Excel

voam — Mon, 09 Nov 2009 12:47:32 GMT

Добрый день!

Подскажите, пожалуйста, каким образом можно решить следующую задачу.

Я написал скрипт (макрос), который выполняется в момент открытия книги, после чего книга тут же закрывается. Однако если вызывать метод [b]ThisWorkbook.Close[/b], то закрывается именно сама книга скрипта, но не окно Excel, в котором эта книга была открыта. Если же применять метод [b]Application.Quit[/b], то закрываются [b]любые открытые на данный момент[/b] окна Excel. Мне же необходимо "уничтожить" только то окно, в котором выполнялся мой скрипт.

Подозреваю, что данная операция осуществляется при помощи API-функций. Но основная проблема, с которой я столкнулся в их применении - это получение дескриптора "моего" окна Excel. Порывшись в сети, наткнулся на функцию FindWindow, однако она в качестве параметра принимает переменную [b]lpClassName[/b], а как получить ее значение для моего приложения я не знаю ...

Может быть, есть иные способы реализовать закрытие окна?..

Буду очень признателен за помощь!