Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4   další »
výpis souborů (15.11.2014 17:00)

Je právě to ořechové!!!!!
Zrovna to jsem potřebovala. 1
Mnohokrát děkuji a doporučuji ostatním programátorům si tento prográmek stáhnout.
Jinak, KLOBOUK DOLŮ, Mr.El Mosquito
Děkuji mnohokrát
1

dynamická výměna dat (15.11.2014 9:55)

POZOR!
Má to však háček. Snad kvůli paměti se mi sice zvolený soubor otevře, ale po zavření tam stále zůstává jakoby záhlaví WORDu, Acrobat reader atd.
Marně se jej snažím uzavřít, je to nejspíš v grafice, ale nevím si s tím rady.
1

výpis souborů (15.11.2014 9:51)

Opět vás zdravím, všechny fandy Excelu.
Zároveň se na vás obracím s žádostí o radu.
Přála bych si ve VBA vytvořit program, který by vypsal přímo do řádků v Excelu výpis, případně celou cestu názvů všech programů v dané složce, a to pod sebe.
Chtěla bych si totiž k datům např.DKP, faktur a pod., přiřadit patřičný soubor jako naskenovaný dokument, pdf, dopis ve Wordu atd. Protože je v dané složce mnoho souborů, jednotlivě bych si mohla k onomu výpisu přidělit ty správné data na onen odkaz.
Děkuji za pomoc 1

dynamická výměna dat (11.11.2014 11:27)

Děkuji za podnět. Aplikace nefunguje, nicméně, jsem se rozhodla vytvořit objektOLE, at už je to obrázek, Word, PDF apod., vždy se mi načte a při ukončení nebo i změně starý objekt vymaže.
Dvojklikem si ty dokumenty otevřu, alespoň nemusím řešit tisk či náhled, pokud je více stránek.
Ještě jednou díky za vstřícnost
Zdena 1

dynamická výměna dat (10.11.2014 18:53)

Zdravím všechny fandy VBA.
Obracím se na vás s žádostí o radu a pomoc.
Vytvořila jsem si v Excelu 2007 na listu objekt, který mi načte a vloží dokument WORD. Pokud v stavovém řádku upravím např.:
Objekt 1 =Word.Document.12|'C:\Excel\WORD\výpoved01.docx'!''''
za
=Word.Document.12|'C:\Excel\WORD\výpoved02.docx'!''''
tak se automaticky načte druhý zvolený soubor
Marně se snažím vymyslet to ve VBA:
ActiveSheet.Shapes("Object 4").Select
Selection.Formula="Word.Document.12|'C:\Excel\WORD\výpoved02.docx'"""
tak to nefunguje!!!
Může mi někdo, prosím pomoci nebo existuje snažší či jednodušší načtení dokumentu z WORDU do Excelu? Obráceně je těch rad na NETu mnoho..
Děkuji 1

export dat v txt (1.7.2013 11:20)

Děkuji. A pokud by to bylo z DIM?
Nechci použít for-next. Děkuji za odpověď. 1

příloha v Outlooku (1.7.2013 11:12)

Děkuji, nicméně cca po 6 zrušení odeslání, se outlook sekne. Přesto děkuji ještě jednou 1

příloha v Outlooku (28.6.2013 22:01)

Zdravím. ještě jedna prosba.
Přílohu txt odesílám v Outlooku, nyní jsem ve fázi testování a tak nepoužiji send, ale při zrušení připraveného odeslání mailu, se mi outlook zakousne.
Kde, prosím, dělá soudružka z NDR chybu? děkuji za pomoc. 1
Sub var_4(): Application.ScreenUpdating = False
Dim Adresa As String: Dim sb1 As String
sb1 = "C:\obchod\export.txt"
On Error GoTo ERR1
Dim objOutlook As Object: Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application"): Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "x.y@seznam.cz"
.CC = "x.y@tiscali.cz"
.Subject = "export " & Now
.Body = "data " & Range("menu!b1")
.Attachments.Add Adresa & sb1
.Display
'.Send
End With
Set objOutlook = Nothing: Set objMail = Nothing: Exit Sub ':MsgBox "e-mail odeslán": Exit Sub
ERR1:
MsgBox "e-mail nebyl odeslán" & Chr(10) & "zkontroluj pripojenie na server", 32
UserForm1.Label28.Caption = "NEODESLÁN": Exit Sub
End Sub

export dat v txt (28.6.2013 21:47)

Zdravím.
Lze, prosím, odeslat - exportovat data do txt jako tkzv. balík, bo mám již více jak 2200 řádků a 10 sloupců nebo data setříděna v DIM(2199,9).
Export trvá již několik sekund. Pozor data obsahují datum, text, čísla i prázdné buňky( nulové hodnoty).
Doposud jsem to dělala takto :
Open Filename For Output As #1
For a = 1 To xx: For b = 1 To yy: Data = Range("Celkem!a:z").Cells(a, b) ' nebo dim_m(a-1,b-1)
If IsNumeric(Data) Then Data = Str(Data)
If b <> 10 Then
Write #1, Data;
Else
Write #1, Str(Val(Data))
End If
Next a,b
Close #1
Děkuji za pomoc 1

SendKeys "^{HOME}" (5.6.2013 17:42)

Jak jednoduché a funkční.
Děkuji 1

SendKeys "^{HOME}" (1.6.2013 21:33)

Promiňte mi, nebyla jsem na NETu.
Pro vysvětlení:
při stránkování v listu jsem chtěla přejít na 1.pozici viz CTRL+HOME, ale po akci VBA S 6 endKeys... se mi přepne NUMLOCK Off, pokud následně opakuji ten příkaz, opět se přepne NUMLOCK On a stále dokola.
Přála bych si využít ve VBA zmíněný CTRL+HOME, ale zároveň, aby zůstal NUMLOCK stále zapnutý.
Děkuji za trpělivost

SendKeys "^{HOME}" (30.5.2013 15:41)

Nefunguje to, tohle řešení jsem našla na NETu
Prosím o jiné řešení.
Děkuji 6

SendKeys "^{HOME}" (30.5.2013 11:29)

Pokud zadám ve VBA funkci SendKeys "^{HOME}",
tak se vypne NUMLOCK, opakovaná funkce SendKeys "^{HOME}" následné zapne NUMLOCK a tak dokola.
Potřebuji, aby po vykonání funkce zůstal NUMLOCK aktivní.
Děkuji za pomoc 6

datum (2.3.2013 17:54)

Prosím o pomoc
programuji ve VBA a přeposílám data v txt souborech přes mail. Při načtení a zpracování,
mám problém s převodem datumu...
Je totiž uložen jako string např. "01.02.2013"
zkoušel jsem to i přes datevalue(), ale je to nespolehlivé.
V Excelu 2007 to nakonec běží, ale v Excelu 2010 to zase kolabuje.
děkuji za pomoc

hlášení (13.10.2012 13:47)

Může mi, prosím, někdo poradit.
při kopírování dat ve VBA se mi nakonec zobrazí hlášení " schránka obsahuje vel.množ.dat..".
Lze toto hlášení nezobrazovat nebo alespoň nastavit v makru jako NE ( tedy neuchovávat )
Děkuji za pomoc 10


Strana:  « předchozí  1 2 3 4   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje