Помогите пожалуйста! EXCEL / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите пожалуйста! EXCEL

5 сообщений из 5, страница 1 из 1

Помогите пожалуйста! EXCEL

#34182179

asu2007

Участник

Сообщения: 26

Рейтинг: 0 / 0

Мне необходимо записать в открытом файле в ячейку А1 значение, из ячейки А2 закрытого файла, приэтом неоткрывая его.
Заранее спасибо!

...

Рейтинг:

0 / 0

07.12.2006, 09:49:07

| Ответить | Цитировать | Написать

Помогите пожалуйста! EXCEL

#34182202

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Public Function Getvalue(path, File, sheet, ref)
Dim Arg As String
Arg = "'" & path & "[" & File & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
Getvalue = ExecuteExcel4Macro(Arg)
End Function

вызов

Sub f()
   cells( 1 , 1 ) = Getvalue("путь к файлу", "имя файла", "имя листа", "адресс ячейки")
end sub

...

Рейтинг:

0 / 0

07.12.2006, 09:57:07

| Ответить | Цитировать | Написать

Помогите пожалуйста! EXCEL

#34182253

asu2007

Участник

Сообщения: 26

Рейтинг: 0 / 0

Спасибочки все сработало

...

Рейтинг:

0 / 0

07.12.2006, 10:16:14

| Ответить | Цитировать | Написать

Помогите пожалуйста! EXCEL

#34182561

vallot

Гость

А у меня Getvalue= "Еггог 2023"

...

Рейтинг:

0 / 0

07.12.2006, 11:27:13

| Ответить | Цитировать | Написать

Помогите пожалуйста! EXCEL

#34183498

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

vallotА у меня Getvalue= "Еггог 2023"
#ССЫЛКА! - 2023

pashulkaНа самом деле всё просто и ответ уже частично заключён в самом вопросе. У Вас в извлекаемых ячейках находятся значения ошибки, и Вы сами это подтвердили в последнем посте.

Вот список ошибок и их коды :
#ПУСТО! - 2000
#ДЕЛ/0! -2007
#ЗНАЧ! - 2015
#ССЫЛКА! - 2023
#ИМЯ! - 2029
#ЧИСЛО! - 2036
#Н/Д! - 2042

Однако если в некоторых ячейках всё же находятся числовые значения, то Вы можете воспользоваться нижеприведённым кодом :

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

arg = "'" & temp & "\[MIS." & temp6 & "." & temp2 & ".xls]Teller1'!" & _
Range(a).Address(, , xlR1C1)

iTemp = ExecuteExcel4Macro(arg)

If Not IsError(iTemp) Then
   If IsNumeric(iTemp) Then
      GetValueFromClosed = GetValueFromClosed + iTemp
   End If
End If

Советы :
1) Уберите из Вашей пользовательской функции метод Activate. А вместо активации рабочего листа используйте инструкцию With или создайте об'ектную переменную с помощью инструкции Set
2) В начале программы поместите инструкцию On Error Resume Next

Примечание :
Я бы ещё добавил, что вот эта часть кода, довольно странная, так как в Вашем случае при запуске функции m всегда будет равно 2, во всяком случае если исходить из текста Вашей пользовательской функции. Конечно можно предположить, что переменная m у Вас об'явлена на уровне модуля, но повторюсь, ничто в коде на это не указывает.

m = m + 2
temp6 = Cells(m, 1).Value

...

Рейтинг:

0 / 0

07.12.2006, 14:49:23

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите пожалуйста! EXCEL

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=303&tid=2183794]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	101ms
get topic data:	13ms
get forum data:	3ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	227ms

total:	416ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы