Datei per FTP übertragen ?
29.07.2004 22:41:35
Andreas
ich erstelle per folgenden Code ein Bild:
Dim myChartObject As ChartObject, int_with As Integer, int_hight As Integer
Dim chtPicture As Chart
Dim strSheetName As String
Application.ScreenUpdating = False
strSheetName = ActiveSheet.Name
ActiveSheet.Range("A1:BC69").CopyPicture Appearance:=xlScreen, Format:=xlPicture
int_with = Range("A1:BC69").Width - 120
int_hight = Range("A1:BC69").Height - 110
Set chtPicture = Charts.Add
Set myChartObject = ActiveChart.ChartObjects.Add(0, 0, int_with, int_hight)
With myChartObject.Chart
.Paste
.Export ActiveWorkbook.Path & "\" & strSheetName & ".gif"
End With
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
Nun möchte ich gerne dieses Bild auf meiner Homepage veröffenlichen. Gibt es da eine Möglichkeit, diesen Vorgang in einem Makro zu automatisieren?
serverdaten: ftp://www.mein-server.de
benuter, passwort
Es müßte wohl eine Abfrage/Meldung vorher erscheine, in der man aufgefordert wird eine Internetverbindung herzustellen und das man die Meldung bestätigt, wenn die Verbindung hergestellt ist. (Prima wäre auch eine Meldung anschließend "Bild übertragen"
Kann mir da jemand helfen?
MfG
Andreas