0

誰かが助けてくれるかどうか疑問に思っていますか？

大量のエクセルファイルがあります。これらはコミッション明細書で、一部は米ドルから英ポンド、英ポンドからユーロなどに換算されています。

それらは四半期ごとのステートメントであり、現在、各ファイルを 1 つずつ調べて、その月の特定の通貨換算レートを入力する必要があります。

これらすべてのステートメントをコンバージョン率を含む単一の Excel ファイルにリンクできれば素晴らしいと考えていました。次に、この 1 つの通貨換算ファイルを更新すると、他のすべてのファイルが更新されます。

私はこれを管理できると思いますが、私が遭遇した小さな問題があります。

その後、ステートメント ファイルを個人に送信すると、2 つのファイル間のローカル リンクが失われ、その結果、コンバージョン数も確実に失われます。私が見ることができる唯一の修正は、コンバージョン率を含むファイルを明細書とともに送信することですが、可能であれば、これを行いたくない.

私の問題を理解していただければ幸いです。誰かがこれに対する修正を提案していただければ幸いです。

前もって感謝します:o)

すべての Excel ファイルに非表示の料金表を含めることについて、ここでいくつかのアドバイスを受けました。

2 つの異なる Excel ファイルからセルをリンクするが、1 つのファイルのみを電子メールで送信する場合は数値を保持しますか?

次に、表示されているシート内の料金を非表示の料金シートのセルにリンクし、非表示の料金シートを別の単一のマスター料金ファイルにリンクして、リンクされたすべての Excel ファイルの料金を更新するように変更します。

マスターレートファイルへのローカルリンクが失われるため、単一のExcelファイルを電子メールで人々に送信した場合、これがどのように機能するかまだ少しわかりません. 回避策はありますか？

どんな助けでも本当に感謝します!

4

1 に答える 1

2

1つのアプローチは、マスターコンバージョン率ワークブックをWebに掲載することです。

ステートメントワークブックは、数式を介してWeb上のマスターワークブックを参照できます。例えば：

='http://www.your-site.com/test/[Workbook1.xls]Sheet1'!A1

このアプローチは楽しいものですが、ネットワーク上でマスターExcel変換率ワークブックを使用することをお勧めします。

ステートメントワークブックは、このマスターコンバージョン率ワークブックにリンクしてレートを取得します。

ステートメントを送信する前に、VBAコードを実行してワークブックをループします。

コードはワークブックを開き、リンクを更新してから中断します。

リンクされたセルに残る値は、最新の更新値です。

以下のコードは、ブック内のすべてのリンクを更新および切断します。 

Sub Update_And_BreakLinks()

Dim vLinks As Variant
Dim lLinks As Long

    vLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
'Get a list of all the links in the workbook

    If IsEmpty(vLinks) Then Exit Sub
'If no links then exit

    For lLink = LBound(vLinks) To UBound(vLinks)
        ActiveWorkbook.UpdateLink Name:=vLinks(lLink), Type:=xlLinkTypeExcelLinks
    Next lLink
'Update links

    For lLink = LBound(vLinks) To UBound(vLinks)
        ActiveWorkbook.BreakLink Name:=vLinks(lLink), Type:=xlLinkTypeExcelLinks
    Next lLink
'Break the links.  The link is replaced with the value from the last update

End Sub

フォルダ内のブックをループする方法については、この質問をご覧ください

5851531

于 2011-06-24T13:26:17.403 に答える