Diese Hilfe bezieht sich auf die nicht mehr unterstützte untermStrich X (10) und X.1 (11).
Zur Hilfe für untermStrich X3 wechseln

Example using VBA (Excel)

THIS EXAMPLE IS PROVIDED „AS IS“, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE EXAMPLE OR THE USE OR OTHER DEALINGS IN THE EXAMPLE.

Request Start End Time

Sub c_Click()
	Rows("10:20").Select
	Selection.ClearContents
 
	With ActiveSheet.QueryTables.Add(c:= _
	"URL;http://.../ustrich/rest/startend/staff/4/2013/01/01", _
	Destination:=Range("a10"))
 
		.BackgroundQuery = True
		.TablesOnlyFromHTML = True
		.Refresh BackgroundQuery:=False
		.SaveData = True
	End With
End Sub

Set Start End Time

Sub c_Click()
	With ActiveSheet.QueryTables.Add(Connection:= _
	"URL;http://.../ustrich/rest/startend/staff/4/2013/01/07", _
	Destination:=Range("a10"))
 
	.PostText = _
	"start_time=08:00&end_time=" & endtime & ":30&time_deduct=0.5"
 
		.BackgroundQuery = True
		.TablesOnlyFromHTML = True
		.Refresh BackgroundQuery:=False
		.SaveData = True
	End With
End Sub
Melden Sie sich an, um einen Kommentar zu erstellen.