小编Kat*_*ara的帖子

刷新QueryTable抛出"常规ODBC错误" - 适用于Mac的VBA Excel 2011

编辑:发现新的错误?

我可能刚刚发现为什么我的脚本不再起作用了.最近有一个办公室更新,似乎他们已经实现了微软查询,摆脱了我安装和配置为我需要的ODBC管理器.现在实际的问题可能是这个微软查询没有UNICODE库,我不知道我可以把它们放在哪里,以便微软查询可以读取/获取它们.或者更确切地说,我不知道如何给微软查询UNICODE库的路径,因为在管理器中没有可能改变它,或者可能有,我只是没有找到它?除此之外我无法打开微软查询管理器,除非我直接从excel工作簿打开它.

原始问题

这段代码工作了一段时间.现在使用完全相同的代码我得到运行时错误.在这里,我已经在这个案例中寻求帮助,并让它发挥作用.

这是代码:

Sub ConnectSQL()

    Dim connstring As String
    Dim sLogin As String
    Dim qt As QueryTable

    sLogin = "Uid=*;Pwd=*;"
    sqlstringFirma = "select * from gi_kunden.tbl_Firma"
    sqlstringPerson = "select * from gi_kunden.tbl_Person"
    connstring = "ODBC;DSN=KundeDB;" & sLogin

    ActiveWorkbook.Sheets("Firma").Select
    ActiveSheet.Range("A1:T2000").Clear

    For Each qt In ActiveSheet.QueryTables
        qt.Delete
    Next qt

    With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstringFirma)
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .Refresh '"General ODBC error" hereeee
    End With

    ActiveWorkbook.Sheets("Person").Select
    ActiveSheet.Range("A1:T2000").Clear

    For Each qt In ActiveSheet.QueryTables
        qt.Delete
    Next qt

    With ActiveSheet.QueryTables.Add(Connection:=connstring, …
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba excel-vba-mac

8
推荐指数
1
解决办法
8249
查看次数

TYPO3 7.6从youtube-media-file获取youtube-url,用于自定义内容元素和fancybox

如果有人对我的问题有更好的称号,请继续更改... ;-)

我一直在谷歌搜索相当长一段时间,但要么我没有问正确的问题,或者到目前为止没有人与此斗争.

我与TYPO3 7.6的fancybox v3.0.47(工作http://fancyapps.com/fancybox/)和我对于图像画廊创建了自己的内容元素.到现在为止还挺好.在客户要求将视频文件添加到该库之前,一切正常.该库使用fancyBox作为灯箱,我使用如下:

<div class="imgGalleryIMG">
  <a href="/fileadmin{file.originalFile.identifier}" data-fancybox="gallery" data-caption="{file.description}">
    <f:image image="{file}" crop="{file.crop}" />
  </a>
</div>
Run Code Online (Sandbox Code Playgroud)

fancybox需要链接,里面的图像是预览图像(可以裁剪).

这正常工作与图片,我可以改变<f:image image="{file}",以<f:media file="{file}" />使被装载到内容元素与YouTube视频"从URL添加媒体"显示,并开始在其上点击时打不过这种方式从的fancybox的收藏夹就不会弹出和它保持与预览图像一样小.

我尝试使用不同的方法,我遇到了youtube视频.通过使用"从URL添加媒体",视频将作为youtube文件保存到文件列表(意味着它具有文件扩展名".youtube"),并且它的标题将成为文件的名称.当我使用时,<f:debug>我找不到真正的链接(例如https://www.youtube.com/watch?v=WEkSYw3o5is),也没有找到YouTube视频的视频ID(例如WEkSYw3o5is).如果我使用上面用于图像的方法,我有一个视频的预览图像,但是当我点击它时,灯箱会打开,除了youtube-video-id之外别无其他.

第二种方法:

<div class="imgGalleryIMG">
  <f:if condition="{file.originalFile.properties.extension} == 'youtube'">
    <f:then>
      <a href="{file.originalFile.identifier}" data-type="iframe" data-fancybox="gallery" data-caption="{file.description}">
        <f:image image="{file}" />
      </a>
    </f:then>
    <f:else>
      <a href="/fileadmin{file.originalFile.identifier}" data-fancybox="gallery" data-caption="{file.description}">
        <f:image image="{file}" crop="{file.crop}" />
      </a>
    </f:else>
  </f:if>
</div>
Run Code Online (Sandbox Code Playgroud)

如果我是正确的,我需要的是youtube视频的链接,用于fancybox的链接,如文档中所述.

我真正想要的是youtube-video的显示图像,点击它将在灯箱中显示(没有自动播放).我怎样才能做到这一点?

我赞成一个只能改变模板的解决方案.

编辑

使用渲染后的第一种方法和fancybox实现其魔力,结果如下所示:

<div class="fancybox-container fancybox-show-controls fancybox-show-infobar fancybox-show-buttons fancybox-container--ready fancybox-controls--canzoomIn" role="dialog" tabindex="-1" id="fancybox-container-1" …
Run Code Online (Sandbox Code Playgroud)

youtube video typo3 fancybox typo3-7.6.x

-1
推荐指数
1
解决办法
1223
查看次数

标签 统计

excel ×1

excel-vba ×1

excel-vba-mac ×1

fancybox ×1

typo3 ×1

typo3-7.6.x ×1

vba ×1

video ×1

youtube ×1