Posts

Es werden Posts vom September, 2012 angezeigt.

Internet - Dateien - Download - Hyperlink setzen

Frage: In einem Tabellenblatt habe ich eine Liste mit Adressen von Bildern im Internet. Diese möchte ich auf meine Festplatte kopieren und eine Spalte neben der Adresse als Hyperlink einfügen. Wie geht das?

Hier noch eine Beispieldatei: Internet - Picture - Download

OptionExplicitPrivateDeclareFunction MakeSureDirectoryPathExists _ Lib"imagehlp.dll" (ByVal Pfad AsString) AsLongPrivateDeclareFunction DeleteUrlCacheEntry Lib"wininet"Alias _ "DeleteUrlCacheEntryA" (ByVal lpszUrlName AsString) AsLongPrivateDeclareFunction PathFileExists Lib"shlwapi.dll" _ Alias"PathFileExistsA" (ByVal pszPath AsString) AsLongPrivateDeclareFunction URLDownloadToFile Lib"urlmon" _ Alias"URLDownloadToFileA" ( _ ByVal pCaller AsLong, _ ByVal szURL AsString, _ ByVal szFileName AsString, _ ByVal dwReserved AsLong, _ ByVal lpfnCB AsLong) AsLongConst strPath AsString = "C:\PicDown\"PublicSub Main()��…

MS-Project -> Excel!

Frage: Aus MS-Project sollen Daten nach Excel eingelesen werden. Ziel ist es nun, da in dem Projekt die einzelnen Tasks ständig aktualisiert werden, bestimmte Daten aus dem Projekt in Excel unter Abgleich der eindeutigen ID einzufügen bzw. aktuell zu halten. Die ID steht in Excel im ersten Tabellenblatt in Spalte B. Bei Übereinstimmung soll der Wert aus Project in Spalte M eingetragen werden. Wie geht das?

Hier mal der prinzipielle Zugriff auf Project:

Option ExplicitPublicSub Main()Dim objMSProject AsObjectDim intCount AsIntegerSet objMSProject =GetObject(PathName:="C:\Temp\Test.mpp")For intCount =1To objMSProject.Resources.Count Debug.Print objMSProject.Resources.Item(intCount).Name Debug.Print objMSProject.Resources.Item(intCount).BaselineWork Debug.Print objMSProject.Resources.Item(intCount).BaselineCost Next intCount Set objMSProject =NothingEndSubUnd hier der Code für die ID in Spalte B:
Option ExplicitPublicSub Main()Dim objMSProject AsOb…