VBA中获取文件名的方法

Posted on by

在用excel做文件导入时发现，一旦使用Commond Dialogs 就会出错

“The control could not be created because it is not properly licensed”

原因是，Commond Dialogs are not licensed to be used in Excel。经过搜索发现，其实VBA还有其它的法子获得文件路径。

Private Function OpenDialog() As String
     Dim sFile As String
     Dim n As Integer
     '获取路径
     sFile = Application.GetOpenFilename("MS excel (*.xls), *.xls")  
     '获取文件title的长度
     n = Len(sFile) - InStrRev(sFile, "\") 
     '获得文件title
     tt = Right(sFile, n) 
End Function

53 thoughts on “VBA中获取文件名的方法”

  1. Pingback: EXCEL VBA笔记(不断更新中) | 津津有味Jjuv Blog

  24. Актуальные юридические новости https://t.me/Urist_98RUS полезные статьи, практичные лайфхаки и советы для бизнеса и жизни. Понимайте законы легко, следите за изменениями, узнавайте секреты защиты своих прав и возможностей.

  25. Топ магазинов техники reyting-magazinov-tehniki по качеству, ценам и сервису! Сравниваем для вас популярные площадки, ищем выгодные предложения, делимся реальными отзывами. Экономьте время и деньги — изучайте наш рейтинг и выбирайте лучшее!

  27. The best free ai chat porn with AI is a place for private communication without restrictions. Choose scenarios, create stories and enjoy the attention of a smart interlocutor. Discover new emotions, explore fantasies and relax your soul in a safe atmosphere.

  28. Кактус Казино кактус казино играть мир азарта и развлечений! Тысячи слотов, карточные игры, рулетка и захватывающие турниры. Быстрые выплаты, щедрые бонусы и поддержка 24/7. Играйте ярко, выигрывайте легко — всё это в Кактус Казино!

  29. Любите кино и сериалы? https://tevas-film-tv.ru у нас собраны лучшие подборки — от блокбастеров до авторских лент. Смотрите онлайн без ограничений, выбирайте жанры по настроению и открывайте новые истории каждый день. Кино, которое всегда с вами!

  30. Лучшие жизненные цитаты великих людей, успехе и вдохновении. Короткие мысли великих людей, мудрые фразы и слова, которые заставляют задуматься. Найдите мотивацию, настрой и силу в правильных словах каждый день!

  33. Хотите жить у моря? квартиры в Черногории — квартиры, дома, виллы на лучших курортах. Удобные условия покупки, помощь на всех этапах, инвестиционные проекты. Откройте новые возможности жизни и отдыха на берегу Адриатики!

  45. супер маркетплейс kraken onion зеркало с современным интерфейсом и удобным функционалом онион, специализируется на продаже запрещенных веществ по всему миру. У нас ты найдешь всё, от ароматных шишек до белоснежного порошка. Кракен. Купить.

Leave a Reply

Your email address will not be published. Required fields are marked *