小编Sta*_*tan的帖子

我第一次运行它时,下面的代码运行正常,但是当我需要第二次运行它时,它给了我这个错误:

运行时错误'462':远程服务器计算机不存在或不可用

它不会一直发生,所以我认为它与Word(不)在后台运行有关...？我在这里错过了什么？

Sub Docs()

Sheets("examplesheet").Select

Dim WordApp1 As Object
Dim WordDoc1 As Object

Set WordApp1 = CreateObject("Word.Application")
WordApp1.Visible = True
WordApp1.Activate

Set WordDoc1 = WordApp1.Documents.Add

Range("A1:C33").Copy

WordApp1.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False

Application.Wait (Now + TimeValue("0:00:02"))

WordDoc1.PageSetup.TopMargin = CentimetersToPoints(1.4)
WordDoc1.PageSetup.LeftMargin = CentimetersToPoints(1.5)
WordDoc1.PageSetup.BottomMargin = CentimetersToPoints(1.5)

' Control if folder exists, if not create folder
If Len(Dir("F:\documents\" & Year(Date), vbDirectory)) = 0 Then
MkDir "F:\documents\" & Year(Date)
End If

WordDoc1.SaveAs "F:\documents\" & Year(Date) & "\examplename " & …

我选择了 Quantcast Choice 作为我网站的同意管理平台。然而，在他们同意相关供应商（谷歌）之前，他们的基本解决方案 Google Adsense 广告仍会提供给访问者。自 2 天以来，Adsense 中有一条通知确认了此问题，并且在 90 天的宽限期后将不再投放任何广告。错误消息：“ 2.1a：由于 CMP 状态为存根、加载或错误，标签或 SDK 未收到 TC 字符串。 ”

我对脚本一点都不熟悉，但似乎我必须使用一些脚本才能使 Quantcast Choice 真正起作用。基本上我需要知道如何：

• 在访问者同意 Google 之前不投放任何 Google 广告
• 征得同意后投放个性化广告
• 未经同意就投放非个性化广告

到目前为止我学到了什么：

在访问者同意之前，我可以将此脚本添加到我的 Google Adsense 代码中以不显示任何广告：

<script>(adsbygoogle=window.adsbygoogle||[]).pauseAdRequests=1;</script>

到目前为止没有问题。但是，我应该能够知道访问者是否同意供应商 Google。TCF v2.0 中 Google 的供应商 ID 是 755。我在 Quantcast 页面之一上发现了以下代码和文本的混合，但我不知道如何使用它。我应该把它放在 Quantcast Choice 脚本中的网页上还是……？（来源链接如下）

{{QC - __cmpConsents.iabVendorConsentIds}} matches the regular expression (^|,)755(,|$).

因此，如果找到 ID 755，我应该致电：

(adsbygoogle=window.adsbygoogle||[]).pauseAdRequests=0

如果没有找到 ID 755，我应该打电话：

(adsbygoogle=window.adsbygoogle||[]).requestNonPersonalizedAds=1
(adsbygoogle=window.adsbygoogle||[]).pauseAdRequests=0

但是我怎么做这些“电话”呢？

所以我想我了解了要遵循的步骤，只是我不知道如何实现这些步骤并连接点。任何帮助将非常感激！

我使用过的来源：

• https://support.google.com/adsense/answer/9042142
• https://help.quantcast.com/hc/en-us/articles/360051794434

一个网站的例子似乎可以实现我想要实现的目标：carscoops.com

我正在尝试在连接到我的数据库后立即将时区更改为"Europe/London".这是我的原始代码:

$pdo = new PDO('mysql:host=localhost;dbname=exampletable', 'exampleuser', 'examplepassw', array(\PDO::MYSQL_ATTR_INIT_COMMAND =>  'SET NAMES utf8');

我将其更改为以下代码,但显然这不是更改时区的正确方法,因为我收到错误.

$pdo = new PDO('mysql:host=localhost;dbname=exampletable', 'exampleuser', 'examplepassw', array(\PDO::MYSQL_ATTR_INIT_COMMAND =>  'SET NAMES utf8', 'SET time_zone = 'Europe/London''));

如何从PDO开始更改时区？

我使用以下代码从数据库中检索数据。问题是它只显示第一行。在这种特殊情况下，这意味着网页上仅显示第一张图片，但我想显示所有图片。

<?php 
    $sql = "SELECT `image-id`, `article-id`, `image-path`, `image-title` FROM `table-images` WHERE `article-id` = :id";

    $stmt = $pdo->prepare($sql);
    $stmt->bindParam(":id", $id);
    $stmt->execute();

    if($result = $stmt->fetch(PDO::FETCH_ASSOC))
    {
?>

<a class="swipebox" href="<?php echo $result['image-path'];?>" title="<?php echo $result['image-title'];?>">
<img alt="image" src="<?php echo $result['image-path'];?>"></a>

<?php
    }// end if
    else {
    echo '0 results';
    }// end else
?>

我读了这篇文章，所以我尝试使用代码：

if($result = $stmt->fetchAll(PDO::FETCH_ASSOC));?

...但这行不通。它甚至不再呼应第一张图片。我在这里缺少什么？

我收到错误消息"集合是基于一个"但我无法弄清楚我的代码有什么问题.

下表是数据提供者: dp2 = ActiveDocument.DataProviders("Test2")

     Quantity      Switchmon      Currency
     -------------------------------------
1)     150             Y             EUR
2)     250,006         N             USD
3)     132,4           Y             EUR
4)      24             Y             GBP
5)       1             N             USD

现在我需要根据这些数据发送自动电子邮件.我需要Excel-VBA中的一个函数,它在每一行中查找"Switchmon"列的值.

当值为"N"时,我需要在电子邮件中加上字符"P".当值为"Y"时,我需要将"Currency"列的值放在那里.

我的电子邮件中的结果应如下所示:

1) 150  EUR
2) 250,006  P
3) 132,4  EUR
4) 24  GBP
5) 1  P

我尝试使用以下函数实现此目的:

Dim strbody As String
Dim dp1 As DataProvider
Dim dp2 As DataProvider
Set dp2 = ActiveDocument.DataProviders("Test2")
Dim k As Integer
Dim numcurr As String

If dp2.Columns("Switchmon").Item(k) = "N" Then
    numcurr = "P" …