Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Ressnt
0 / 0 / 0
Регистрация: 16.06.2015
Сообщений: 5
1

[Basic, Exel] При выводе значения из ячейки, не воспринимает формат Даты

16.06.2015, 11:07. Просмотров 927. Ответов 4
Метки нет (Все метки)

Всем привет, хочу обратится за помощью. Написал макрос, который проверяет наличие файла в директории и добавление в него заданного листа. При отсутствии создает файл.
Так вот, имя файла берется частично из ячейки, если в ячейке содержится что то вроде (kjbvlkbf). То она все вполне адекватно выводит. Но если там дата (16.06.2015) - крашится и не распознает значение. Как ее заставить понимать то, что там находится?
Сам макрос вот:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
TextBox1.Text = Sheets("123").Range("A1").Value
    If Dir$("C:\Users\Tololin.NI\Desktop\План работ на " + Application.ThisWorkbook.Worksheets("123").Cells(1, 6).Value + ".xlsx") <> "" Then
 Dim sh As Worksheet: Set sh = ActiveSheet    
    Application.ScreenUpdating = False  
  
 With Workbooks.Open("C:\Users\Tololin.NI\Desktop\" & "План работ на " + Application.ThisWorkbook.Worksheets("123").Cells(1, 6).Value + ".xlsx")   
 sh.Copy , .Worksheets(.Worksheets.Count)   
 .Close True   
 End With
      Else
 Workbooks.Add  
 ChDir "C:\Users\Tololin.NI\Desktop"
 ActiveWorkbook.SaveAs Filename:="C:\Users\Tololin.NI\Desktop\План работ на " + Application.ThisWorkbook.Worksheets("123").Cells(1, 6).Value + ".xlsx", _
 FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 ActiveWindow.Close
 End If
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2015, 11:07
Ответы с готовыми решениями:

Не совпадает формат даты при вводе и выводе
Есть такой файлик: &lt;HTML&gt; &lt;% Session.LCID=1049 Response.Write 'Today is:' &amp; Now() &amp; ' '...

Как задать зависимость значения ячейки от даты при заданном значении ячейки функцией (сегодня)
Профессионалы, помогите новичку пожалуйста! Как задать зависимость значения ячейки при изменении...

5 вопросов по Exel, Как указать формат числа ячейки и др.
Пусть это наивно, но не нахожу ответа в Инете: ПРОГРАММНО из VB6: Как нарисовать границы ячеек,...

Как из VB (не VBA) програмно изменить формат ячейки в Exel
Пример. Я открыл из VB файл-таблицу 'Товары.xls', внес в таблицу данные и еще что-то... Но в...

Не могу поменять язык при выводе, воспринимает только на английском
15 Дана информация об абитуриентах. Запись имеет вид: ФИО, оценки по трем вступительным экзаменам....

4
Vovchikvsb
464 / 121 / 61
Регистрация: 04.03.2015
Сообщений: 324
16.06.2015, 11:30 2
Лучший ответ Сообщение было отмечено Ressnt как решение

Решение

Замените + на &.
1
Кащенко
Заблокирован
16.06.2015, 11:38 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Click()
Application.ScreenUpdating = False
If Dir$("d:\Users\Tololin.NI\Desktop\ГЏГ«Г*Г* Г°Г*áîò Г*Г* " & _
    ThisWorkbook.Worksheets("123").Cells(1, 6).Value & ".xls") <> "" Then
  Dim sh As Worksheet: Set sh = ActiveSheet
  
 With Workbooks.Open("d:\Users\Tololin.NI\Desktop\" & "ГЏГ«Г*Г* Г°Г*áîò Г*Г* " & _
  Application.ThisWorkbook.Worksheets("123").Cells(1, 6).Value & ".xls")
  sh.Copy , .Worksheets(.Worksheets.Count)
  .Close True
 End With
Else
  Workbooks.Add
  ChDir "C:\Users\Tololin.NI\Desktop"
  ActiveWorkbook.SaveAs Filename:="d:\Users\Tololin.NI\Desktop\ГЏГ«Г*Г* Г°Г*áîò Г*Г* " & _
    Application.ThisWorkbook.Worksheets("123").Cells(1, 6).Value & ".xls", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  ActiveWindow.Close
End If
Application.ScreenUpdating = -1
Unload Me
End Sub
0
Ressnt
0 / 0 / 0
Регистрация: 16.06.2015
Сообщений: 5
16.06.2015, 11:41  [ТС] 4
Спасибо большое. А я уже столько версий напридумывал, как исправить. Все таки плохо чего-то не знать .
0
Кащенко
Заблокирован
16.06.2015, 11:42 5
Диск С: на Д: поменял, но не везде - у меня нет админских прав на системные диски.
0
16.06.2015, 11:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2015, 11:42

Формула для определения значения даты в ячейки при соблюдении нескольких условий
Уважаемые форумчане! Помогите, пожалуйста с формулой. Необходимо определить дату окончания действия...

Запись значения ячейки Exel в переменную
Хочу прочитать значение (целочисленное) в ячейке талицы Exel, чтобы дальше с ним работать в фортаме...

Проверка формата ячейки (а именно, что формат ячеек соответствует используемому формату даты)
Всем привет! Для реализации выпадающего каледаря использовал следующий скрипт Private Sub...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru